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is* microsystems 

P.O. Box 687 224 S.E. 16th Street Ames, iowa 50010 

515/232-8187 

DB/65 

A complete hardware/software debug system for the Rockwell, Synertek, MOS/Technology 6500 

microprocessor family. 
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Standard in-circuit emulator 

Hardware breakpoints 

Single step mode 

Eight software breakpoints 

Real-time software breakpoints 

RS 232C or current loop terminals 

Symbolic disassembly of user program 

Serial/ parallel load capability 

Program trace of instructions and registers 



Features 

* Prom resident debug monitor 

* Software history of instruction addresses 

* 2K ram standard with sockets for additional 
6K if required 

* Scope sync output 

* User NMI and IRQ vectors supported 

* Write protect 

* User program may reside in high memory 



SINGLE QUANTITY PRICE = $1450 
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IN THIS ISSUE 



MICRO INTERRUPTS 



Mprvin L. De Jong, who in previous issues of 
MICRO presented a fine series on interfacing the 
6502 to peripherals, now tackles the AIM 65 and 
provides "A Simple 24 Hour Clock for the AIM 65" 
(paqe 5). The program listings are given in 
two formats: first, the format as produced by 
the AIM Disassembler, and second, the more 
"normal" commented listing which was produced by 
the MICRO Staff. We expect to see a lot more on 
the AIM 65 is the near future. 



Alan G. Hill provides an "Apple II Trace List 
Utility" (paae 9) which should certainly make it 
much easier to debug BASIC programs on an Apple. 
This features two modes of operation - a "real- 
time" mode and a mode which "remembers" the last 
ICO line executed for post-execution examina- 
tion. 

The ever popular MICRO Software Catalog (page 
15) continues to provide a source of information 
on whet software is available for the 6502. 

John T. Kosinski and Richard F. Suitor put to 
rest forever (hopefully) the discussion of the 
6522 I/O chip and the Apple II in their article 
on "6522 Chip Setup Time" (page 17). 

John R. Sherburne shows how you can combine the 
serious and the enjoyment aspects of your system 
with his article on "High-Resolution Plotting 
for the PET" (page 19). The cover photo for 
this issue of MICRO came from his work. 

Jim Zuber turns the tables by "Using Tiny BASIC 
to Debug Machine Language Programs" (page 25). 
While we have had s number of articles which 
used machine language programs to support BASIC, 
this is the first I can remember which used 
BASIC to support machine language programming. 

Robert M. Tripp continues to "ASK the Doctor" 
with "An ASK EPROM Programmer" (page il) . This 
program, in addition to being useful in its own 
right, shows how to write code that can run on 
an AIM, SYM, and KIM. 



Harvey B. Herman wrote "Thanks for the Memories 
A Pet Machine Language Memory Test" (page 37) 
which provides a very efficient memory test for 
the PET. 

Robert E. Jones presents the first OSI-based 
article we have had since I twisted the arm of a 
friend back in the earliest days of MICRO. "The 
OSI Flasher: BASIC-Machine Code Interfacing" 
(page 41) presents an example of how to get into 
s machine language program from BASIC and back 
again . 

Jim Green provides some "6502 Graphics Routines" 
(page 43) which will help anyone who is trying 
to do low resolution graphics on a KIM-based 
system with video capability. 

William R. Dial, recently returned from a vaca- 
tion in Hawaii, continues to keep us informed on 
what is beino published about the 6502 in his 
"6502 Bibliography - Part IX" (page 47). 
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MICROBES 

In "Life for the KIM-1 ..."" by T. E. Bridge in 
MICRO 9:39, you need to insert $1C00 in the IRC 
vector - as any good Kimmy knows, not $1000 as 
was listed. 

The real author of "6502 Interfacing ..." in 
MICRO 9:11 was not Martin L. De Jong as listed, 
but rather Marvin L. De Jong, but you probably 
already guessed that. 

ANNOUNCEMENTS 

A number of readers have written or called for 
the address of CALL APPLE which we have mention- 
ed in some previous issues. It is: 

CALL APPLE 

6708 39th Avenue S.W. 

Seattle, WA 98136 

206/932-6588 

Another Apple group has been formed: 

Apple Group - NJ 

Amateur Computer Croup of NJ 

c/o Steve Toth 

1411 Greenwood Drive 

Piscataway, NJ 08854 

201/96807498 



Connecticut microcomputer is offering two free 
application notes to MICRO readers. 

1. Software Delay for Slow Carriage Return 
Printers Using the CmC ADA 1200 C 

2. Output Formatting Routines for the PET 

You will find the address for CmC in their ad 
inside the front cover of this issue. 



Classified Advertisements 

Starting with the next issue of MICRO, we will 
print ads from individuals, stores, companies, 
etc. in a classified ad format. The rules are: 

1. Ad must pertain to 6502 material. 

2. Ad must not exceed 250 characters. 

3. $10.00 fee must accompany ad. 

4. Only one ad per issue per person/store. 

The purpose of this advertising service is to 
permit anyone who has things to sell to the 6502 
community to be able to advertise at a very low 
rate while getting their message to over 6000 
interested MICRO readers. We reserve the right 
to reject any material which we feel is not in 
the best interest of MICRO or its readers. 



Why Do Stores Get MICRO First? 

A number of subscribers have complained that the 
local computer store gets MICRO several weeks 
before they receive theirs through the mail. 
The problem is simply the slow delivery of 2nd 
Class mail. All copies of MICRO, both dealer 
which are shipped UPS and subscribers which are 
mailed, leave us within a two or three day span. 
The February issue of MICRO was mailed on the 
26th of January. It took exactly two weeks for 
a reader in the next town to receive his copy. 
First Class postage would cost $8.40 more per 
year, based on the current size and weicht of 
MICRO. 
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Apple II 16K RAM s 1 195 



SYSTEMS* 
00 • Commodore pet 8K ram s 795 00 • Commodore KIM l S 159 00 

• Microproducts Super KIM s 395 00 

*Delivery on most systems is usually stock to 2 weeks. Call or write for specific information. 

1 6K RAM CHIP SET FOR APPLE II 
ONLY $99 00 

WORKSHOPS: Call for details. 

• pet— 3rd Saturday of the Month 

• APPLE— 4th Saturday of the month 

CLASSES: Apple Topics 

we offer a series of classes on Apple II to aquaint owners with some of the unique features and capabilities 
of their system. Topics covered are Apple Sounds, Low Res. Graphics, Hi Res. Graphics, Disk Basics, and how to Us 
Your Reference Material. Sessions are held every Thursday Night at 7:00 p.m. 



SOFTWARE 

we now have a complete software catalog. 



APPLE: 

Appletalker* 

Bomber" 

Space Maze* 

Apple-Us' ner" 

Talking Calculator 

Color Organ - 

Apple Forth 

Bulls & Bears 

Warlords 

Escape 

Tank war 

Phaser zap 

Depth Charge 

3-D Docking Mission 

Microchess 

Othello 

Microproducts Assembler— Tape 
Microproducts Assembler— Disk 

Apple Music 

Ron Graff s Educational Programs 
Softape instant Library 

(8 tapes plus softape membership!) 
ON DISK: 
inventory System 
Text Editor .-. . 
Mailing List 
Single Disc Copy 

Memo Calendar 

Electronic Index Card File* 
Best of Bishop* 

(6 programs on one disk) 

■Programs bv Bob Bishop 

PET: 

Finance 

Microchess 

Casino Pac (3 Games) 
Off The Wall /Target Pong 

Mortgage 

DietPlanner/Biorythm . . 
Basic BASIC 



S15.95 
9.95 
10.00 
19.95 
12.95 
. 9.95 
35.00 
12.9S 
12.95 
1795 
12.95 
15.00 
15.00 
14.95 
19.95 
10.00 
19.95 

24.95 

1S.00 

(call for details) 
39.95 



125.00 
50.00 
30.00 
19.95 

.24.95 
19.95 

.49.95 



59.95 
19.95 
9.95 
9.95 
14.95 
14.95 
14.95 



HARDWARE 



APPLE II HARDWARE: 

• Modem for Apple II, ready to go 

Plug into telephone wall plug 



. S379.00 



• upper & Lower case Board 

Now vou can display both upper and lower case characters on 
vour video with the Apple II. includes assembled circuit board 
and sample software S49.95 

• Programmer Aide S50.00 

PET HARDWARE 

• Beeper S24.95 

• Petunia— for computer generated sounds S29.95 

• Video Buffer— to put vour pet's pictures on a television set or 
monitor S29.95 

PRINTER SPECIALS FOR APPLE AND PET 

TRENDCOM 100 with interface for Apple or PET S405.00 

40 characters per second Bidirectional look ahead printing 



Microprocessor controlled 

96 character set 

High Reliability 

Quiet operation 

Sturdy metal/plastic case 



Low cost thermal paper 

4 "x 80 ft. roll 
Clear 5x7 characters 
8 bit parallel input 
No external power supply 



S2.50 



40 characters per line 

Anadex DP-8000 with trader 

8" paper width and Apple interface S1050 

Centronics 779-2 for Apple II 

With parallel interface S1245.00 

see if you qualify for a cci of oc p/f card 

and get great discounts on selected 

purchases for your Apple and pet. 

WHY SHOULD YOU BUY FROM US? 

Because we can help vou solve your problems and answer your questions, we don't claim to know 
everything, but we try to help our customers to the full extent of our resources. 

—Prices subject to change.— 



COMPUTER COMPONENTS OP ORANGE COUNTY 

6791 Westminster Ave., Westminster, CA 92683 714-898-8330 

Hours: Tues-Fri 11:00 AM to 8:00 PM— Sat 10:00 AM to 6:00 PM (Closed Sun, Mon) 

Master Charge, Visa, B of A are accepted. No COD. Allow 2 weeks for personal check to clear. 

Add S1.50 for handling and postage. For computer systems please add $10.00 for shipping, handling and 

insurance. California residents add 6% Sales Tax. 



A SIMPLE 24 HOUR CLOCK FOR THE AIM 65 

Marvin L. De long 

Department of Math-Physics 

The School of the Ozarks 

Point Lookout, MO 65726 



The program whose listings are given in the AIM 65 disassembly 
format is a 24 hour clock that displays the time in hours, minutes, 
and seconds on the six right-most digits of the 20 character AIM 65 
display. AIM 65 owners can load the program directly from the 
listings using the mini-assembler in the AIM 65 monitor. The 
program listings were taken directly from the thermal printer on the 
AIM 65. 



To start the timer, load the hours, minutes, and seconds locations 
with the time at which you intend to start, wait for this time, then 
start the program. Of course, there are much more meaningful ap- 
plications to this program than simply displaying the time One 
could record the time at which transistions on the I/O pins occur for 
example. Have fun. 



The principal reason for writing the program was to experiment with 
the interval timers on the 6522 VIA. One advantage of the so-called 
T1 timer on the 6522 is that it can produce equally spaced interrup- 
ts, independent of the time necessary to complete an instruction 
and the time necessary to process the interrupt. SYM-1 owners may 
also use the program with only minor modifications, since the ad- 
dresses of the various registers and counters in the 6522 chips are the 
same for these two computers. SYM-1 owners will have to change 
the display routines, however. 

A brief description of the program follows. The first five instructions 
set up the interrupt vectors for the AIM 65. The next eight instruc- 
tions set up the 6522 VIA for the T1 timer in the free running mode, 
enable the T1 interrupt, and set the time interval to $C34E = 
49,998io clock cycles. This number, plus the two clock cycles 
necessary to restart the timer, represent 50,000 clock cycles or 0.05 
seconds. Thus, the time between interrupts is exactly 50,000 clock 
cycles. Twenty interrupts give an interval of 10 6 clock cycles, or one 
second with a one MHz clock frequency. Location $0000 serves as 
register for the count-to-twenty interrupts process. It starts at $EC 
and advances to $00 before the seconds location is incremented. 

The interrupt routine from $0300 to $033C is very similar to the 
clock program by Charles Parsons in THE FIRST BOOK OF KIM. The 
only difference is that the timers do not need to be restarted in the 
interrupt routine. Only the interrupt flag needs to be cleared before 
returning from interrupt. This is accomplished by the LDA A004 in- 
struction at $0337. 
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The program from $0226 to $0254 is the display routine from the 
AIM 65. First the seconds, minutes, and hours located in $0001, 
$0002, and $0003 respectively, are relocated, then converted to 
ASCII, and finally output to the display by the )SR EF7B. Many kinds 
of hex to ASCII routines are possible here. I simply rotated nibble af- 
ter nibble into the low order nibble of location $0004 and added $30 
to convert to ASCII. 

AIM 65 owners may be interested in the output routine. Of all the 
subroutines mentioned in the "User's Guide" the one I used is not 
mentioned directly. Basically it takes an ASCII character in the ac- 
cumulator and outputs it to the display digit between $00 and $13 
(20 character display) identified by the contents of the X register. It 
also requires a one in bit seven of the accumulator. Otherwise you 
get the cursor. So I did a ORA $80 with the ASCII character in the 
accumulator before jumping to the subroutine at $EF7B. 

I checked the clock up against WWV and found it was off by about 
0.024%, which is substantial if you wish to keep time over the long 
term. I decreased the $4E byte location $0216 to $42 and now it 
appears to be off by only 0.00063%. Of course, these timing errors, 
though small, tend to accumulate giving an error of about 0.5 
seconds in 24 hours. 
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24 HOUR AIM CLOCK 









BY MARVIN L. 


DE JONG 
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020C 








ORG 


$0200 


0200 78 






START 


SEI 


i 


0201 A9 


00 






LDAIM 


$00 ■! 


0203 8D 


04 


A4 




STA 


$A404 1 


0206 A9 


03 






LDAIM 


$03 1 


0208 8D 


05 


A4 




STA 


$A405 


020B A9 


CO 






LDAIM 


$C0 : 


02 OD 8D 


OE 


AO 




STA 


$ACOE 


0210 A9 


4C 






LDAIM 


$40 


C212 8D 


OB 


AO 




STA 


$AOOB 


0215 A9 


4E 






LDAIM 


$4E ! 


0217 8D 


06 


AO 




STA 


$A006 


021A A9 


C3 






LDAIM 


$C3 ! 


021C 8D 


05 


AO 




STA 


$A005 


C21F A9 


EC 






LDAIM 


$EC. ! 


0221 85 


00 






STA 


$0000 


0223 58 








CLI 


1 


0224 00 








BRK 


1 


0225 EA 








NOP 




0226 A5 


01 




DISPLY 


LDA 


$0001 1 


0228 85 


04 






STA 


$0004 1 


022A A5 


02 






LDA 


$0002 


022C 85 


05 






STA 


$0005 


022E A5 


03 






LDA 


$0003 


0230 85 


06 






STA 


$0006 


0232 A2 


13 






LDXIM 


$13 1 


C234 8A 






LOOP 


TXA 


i 


0235 48 








PHA 


i 


0236 AO 


04 






LCYIM 


$04 ! 


0238 A5 


04 






LCA 


$0004 I 


G23A 29 


OF 






ANDIM 


$0F 1 


023C 18 








CLC 


1 


023D 69 


30 






ADCIM 


$30 1 


02 3F 09 


80 






ORAIM 


$80 1 


0241 20 


7B 


EF 




OSR 


$EF7B i 


C244 46 


06 




SHIFT 


LSR 


$0006 ! 


0246 66 


05 






ROR 


$0005 1 


0248 66 


04 






ROR 


$0004 


C24A 88 








DEY 


1 


0248 DO 


F7 






BNE 


SHIFT 1 


024D 68 








PLA 




024E AA 








TAX 




02 4F CA 








DEX 


1 


0250 EO 


OE 






CPXIM 


$0E 


0252 BO 


EO 






BCS 


LOOP 1 


0254 4C 


26 


02 




OMP 


DISPLY 1 



SET INTERRUPT DISABLE 
SETUP INTERRUPT VECTORS 
FOR 6522 
POINT TO ADDRESS 0300 

SETUP VIA 6522 FOR TIMER 1 
IN FREE RUNNING MODE 



SET LOW BYTE OF TIMER 

SET HIGH BYTE OF TIMER 

SET 2G INTERRUPT COUNTER 
IN LOCATION 0000 
ENABLE INTERRUPTS 
RETURN TO MONITOR 



MOVE DIGITS TO BE DISPLAYED 
FOR SAFE KEEPING 



LOAD DISPLAY POSITION POINTER 

PUT X VALUE INTO A 

SAVE ON STACK 

SET TO SHIFT FOUR POSITIONS 

GET LEAST SIGN DIGIT REMAINING 

MASK TC SINGLE CHARACTER 

CLEAR 

CONVERT 0-9 TO ASCII - 9 

BIT eO MUST BE ON FOR AIM 

AIM OUTPUT ROUTINE 

SHIFT TO GET HIGH HALF OF 

DICN INTO POSITION 

DECREMENT FOUR SHIFT COUNTER 
KEEP ON SHIFTING 
RESTORE X FROM STACK 

DECREMENT POSITION POINTER 
TEST 6 DIGITS OUTPUT 
MORE TO DO 

E. NOW START OVER AGAIN. 
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24 HOUR CLOCK INTERRUPT SERVICE 



0300 



ORG $0300 



o 



0300 4e INTRPT PHA 

0301 E6 00 INC 
0303 DO 32 BNE 
C3G5 38 SEC 

0306 IB CLC 

0307 A5 01 LDA 
0309 69 01 ADCIM 
030B 85 01 STA 
030D C9 60 CMPIM 
030F 90 22 BCC 
0311 A9 00 LCAIM 
0313 85 01 STA 

0315 18 CLC 

0316 A 5 02 LDA 
C316 69 01 ADCIM 
031A 85 02 STA 
031C C9 60 CMPIM 
D31E 90 13 BCC 
0320 A9 00 LDAIM 
0322 85 02 STA 
C324 18 CLC 
0325 A5 03 LDA 
0327 69 01 ADCIM 
0329 85 03 STA 
032B C9 24 CMPIM 
C32D 90 04 BCC 
032F A9 00 LDAIM 
0331 85 03 STA 



COME HERE ON TIMER INTERRUPT 
$0000 SAVE A REG AND BUMP COUNTER IN 0000 
IDONE DONE WITH INTERRUPT 

SET DECIMAL MODE FOR CALCULATIONS 



$0001 

$01 

$0001 

$60 

NOTMIN 

$00 

$0001 

$0002 

$01 

$0002 

$60 

NOTMIN 

$00 

$C002 

$0003 

$01 

$0003 

$24 

NOTMIN 

$00 

$0003 



BUMP ONE SECOND COUNTER 

BY ADDING 1 WITH CARRY 

SAVE 

TEST SIXTY SECONDS 

NOT A MINUTE 

A MINUTE 

ZERO SECOND COUNTER 

THEN BUMP MINUTES 

GET MINUTES COUNTER 

AND BUMP 

SAVE 

TEST HOUR 

NOT AN HOUR YET. 

AN HOUR, SO ZERO MINUTES 

THEN FIX HOURS 



TEST 24 HOURS 

NOT 24 HOURS 

AT 24 HOURS RESET TO ZERO 



0333 A9 EC 
0335 85 00 

0337 AD 04 AO 
033A D6 
G33B 6E 
033C 40 



NOTMIN LDAIM $EC 

STA $0000 



IDONE 



LDA 
CLD 
PLA 
RTI 



$APC4 



RESET 20 INTERRUPT COUNTER 



RESTART TIMER BY READING 
CLEAR DECIMAL MODE 
RESTORE A REGISTER 
RETURN FROM INTERRUPT 



WRITING FOR MICRO 



>) 



MICRO is interested in all aspects of microcomputers based on the 6502 micro- 
processor family. Our primary coverage is aimed at factual, useful information. 
This may be "How To" articles, useful programs and subroutines, descriptions of 
working applications, special interest groups such as Hams, reviews of products 
and literature, technical tutorials, and so forth. Authors currently receive 
$15.00 per page and we anticipate an increase in this amount in the future. In 
addition, all articles contained in "The BEST of MICRO" are receiving additional 
residuals. Pay while you play! 
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Here is a powerful microprocessor control 
system development tool and a complete 
microcomputer in one /ow-cost package. The 
Supertcim singleboard computer has more 
features, more interlace and expansion 
capability with a higher quality design and 
construction than any other in its class. 

Have you got a thousand hours tied up in 
software for your *KIM-1 BASED conirol system 



and now your "KIM-1 is too amair? The Super- 
mini is the economical next step for expansion 
into more RAM. user EPROM and prototype 
area on one modern, compact, high density, 
fuHy assembled and integrated board. The 
Superkim nas more software available than 
any other singleboard computer since it is 
totally competlblewith KIM-1. 

The Superkim has a wide range of Appeal to 
engineers, teachers and industry. 

■ tCIM-l 11 a oroducl o( MOS Technolooy. 



Applell EPROM 

Expand Your ROM Software 

Add capability to your system monitor or BASIC for business or other applications. Add 
commands to the operating system. New operating systems can be put into EPROM memory 
with our EPROM programmer and plugged directly into your APPLE II board with our 
EPROM socket adaptor. The MICROPRO DUCTS EPROM Programmer wilt program INTEL 
2716s, 2758s and other 5-voIt replacements for 27lfis. 

Add to or replace existing APPLE II ROM software with operating systems of your own de- 
sign. Other software systems similar to PASCAL, FORTH, LISP, APL, FORTRAN, COBOL, 
ALGOL, other BASIC'S, etc. may be incorporated into your APPLE \\ ROM space. 

The EPROM Programmer looks just like memory to the computer and can be configured to 
program memory locations from 8000 to FFFF for a total of 32K bytes. This means that the 
EPROM s ca n be used in computer applications other than the APPLE II, i.e. the MICRO- 
PRODUCTS Superkim, etc. This turns your APPLE II into a very low cost powerful, software 
development system. 




FEATURES: 

• Fully assembled. 

• Completely self-contained 
•Textooi Zero insertion force socket for 

EPROM 

• Onboard 25 Volt power supply 

• Ooubfe sided plated through holes on 
fiberglass PC board 

• Cold plated edge connector 

• Fully socketed 

• Latest low-power Schottky iC's 

• Solder mask 



$99.95 



MICROPRODUCTS will custom program 
EPROM* wMh your program on request 



$445.00 



ADVANTAGES: 

• Put memory in two empty ROM slots in 
APPLE II 

• Replace memory in existing APPLE II ROM 
slots 

• Add new operating systems to APPLE II 

• Programs fNTEL 2716 2K Byte EPflOM's, 
2758 1 K byte EPROMs and other compatible 
5 volt EPROMs 

• Put peripheral drivers in permanent memory 

• Use APPLE II to program EPROMs tor otfier 
computers 



2107 ARTESIA BOULEVARD 

REDONDO BEACH, CA 90279 

(213) 374-1673 



Add a Printer to Your Apple II 

With our PC Etoard that interfaces wilh the highly popular Southwest Technical Products PR-a0 Printer. 
Both our Printer Interface and PR-4C Printer are available at computer stores. 



CENFR0NICS TOO? 




Printer Interface 
Apple II to PR-40 

Interface is completely assembled, tested and guaranteed. 

Including ; Interconnecting cable, software stored on audio 
cassette. PC Etoard which plugs directly into your APPLE II 

FEATURES: 

• Prims one line at a time when return key is 
pressed. 

• Ideal for writing programs, as you have a 
complete permanent record ot all changes 
and deletions to your program. 

• While in Basic, using the list mode, printer 
will list trie entire program without 
stopping as the screen scrolls up one line at 
a lime. 

• You can refer to an earlier part of your 
program without the necessity of relisting it 
on the screen. 

• Printer can be called 'ram Basic to print 
entire contents of video screen. 

• When using assembly language mode, one line 
at a time will be printed in the same formal 

as the video screen. 

$49.95 




SPECIFICATIONS: 

interface hardware consists oi : 

• art epoxy fiberglass PC Board 

• double -sided 

• plated through holes 

• silk screen printed legends 

• gold plated edge card connector 



micraproducts 

2107 ARTESIA BOULEVARD 

REDONDO BEACH, CA 90278 

(213) 374-1B73 



microprockjcts 

2107 ARTESIA BOULEVARD / REDONDO 8EACH /CALIFORNIA 9C27B I (213) 374-1673 

MICR0PR0DUCTS/APPLE II 
PARALLEL INTERFACE BROCHURE 



The MICROPRODUCTS Parallel Ouptput card allows your Apple II* computer to 
coBBDunlcaCe with the outside world. 



Applications include: 




Printer Interface 




Power controller 




Tone/Husic generator 




Plotter Driver 


1 


LED/LAMP Driver 




Apple Il/Superkim Communications i 


nterface | 



Features. 


i 


* 


8 bltg output 


* 


15 aa output, current sink or source j 




(Can drive L.E.D.s directly) 


* 


TTL or CMOS compatible 


* 


U1I1 go In any slot on the Apple 11* ! 




Data available strobe 



General Info 



at ion: 



Data can he transferred to an external device by a 5TA, STt or 5TX from 
assembly language, or a POKE fron BASIC- The S bits output can drive 2 
7- segment L.E.D. displays, relays, SCRs , Printer, or anything which requin 
up to 8 bits of data. 

Application notes and software to drive a Southwest Technical PR-40 printei 
Is available for a nominal S5.00 extra. 

Included with the Parallel Interface are Instructions on how to interface 
a Centronics 779 printer and wiring diagrams for use as a power controller 
Additional software and applications notes available. 

*APPLE TI la a trademark of APPLE COMPUTER, INC. 



$44.95 



APPLE II -TRACE LIST UTILITY 

Alan C.Hill 

12092 DeerhornRd. 

Cincinnati, OH 45240 



u 



Did you ever use the TRACE function in Integer BASIC, only to 
give up in despair after looking at a screeen full of line numbers? 
Try it without a printer and you may never use TRACE again! Well, 
here's the utility that will put TRACE back into your debugging 
repertoire (for those of us who need a little help getting it right.) 

The utility presented here will list each BASIC program source 
statement line by line in the order executed. There's no need to 
refer back and forth between TRACE line numbers and the source 
program listing. Two versions are presented: Version 1 is a 
real-time utility; i.e. each statement is listed immediately prior to 
execution so you can follow the programs logical sequence. You 
can slow the execution rate down or even temporarily halt 
execution while you scan the screen. Version 2 only saves the line 
numbers of the last 100 lines executed for listing later. Version 3 
could be useful in tracing a full-screen graphics program. 

The Technique 

The program utilizes the COUT hook at $36.37 to intercept and 
suppress TRACE printing. All other printing continues normally 
with one exception (see Warning #1). Before returning to the 
BASIC interpreter, the line number is picked up and pushed into an 
array (TR) in the variables area above LOMEM. If the number is the 
same as the previous line number, a zero line number is placed in 
the stack with the line number of a FOR I = 1 to 1000: NEXT I 
delay loop, for instance. When the number changes, it will be 
placed in the stack. The most recent 100 line numbers are saved. 
Tracing is performed under user control by the normal 
TRACE/NOTRACE statements. In Version 2, the lines may then be 
listed after the test program ends. The technique in Version 1 is 
similar with one distinction. The trace intercept routine transfers 
control to the utility program to list the line as soon as it is put in 
the stack. 

How The TRACE Intercept Routine Works 

The output pointer in $36.37 is initialized by the utility to the 
address ($300) of the Trace Intercept Routine. Each character is 
examined by TIR as it comes through if the TRACE flag is up (bit 7 
of $AO on). If off, TIR jumps back to the normal print utility at 
$FDFO If the character is a # ($A3), it is assumed that a line 
number follows. Every line number in the stack is pushed down 
and the current line number is placed at the top. Location SDC.DD 
points to the BASIC line about to be executed. The line number is 
in the second and third bytes. In Version 2, TIR returns to the 
interpreter. In the real-time version (Version 1), control is next 
transferred to the utility program at line 30020. TIR expects that 
the address of line 30010 has been saved in $15.16 by the utility 
programs CALL 945 in line 30010. TIR first saves the contents of 
SDC.DD and then replaces it with the contents of $15.16. It also 
saves the address of the current statement within the BASIC line. 
That is, the contents of $EOE1 are saved at $1B.1C. TIR can now 
transfer control back to the interpreters continue entry point by a 
JMP $E88A which then executes line 30020 of the utility. The 
current line of the test program is listed; the BASIC pointers are 
restored by the CALL 954 in line 30090; the return address is 
popped; and control is returned to the test program through $E881. 
Fait accompli. 



As mentioned previously, the TR array is used to save the line 
numbers. The array is set up the first time TIR is entered. Note that 
TR is intentionally not DIMensioned in the utility. TIR must handle 
that task since a RUN of the test program will reset the variables 
area pointer ($CC.CD) back to LOMEM 

Programming The Routines 

TIR starts at $300. It could be relocated if the absolute references 
in the POKE and CALL statements are changed. Also note that the 
LIST statement in lines 30060 and 32040 will not be accepted by 
the Syntax checker. They must first be coded as PRINT statements, 
located, and changed to LIST tokens ($74) using the monitor This 
is more easily done if these lines are coded and the tokens 
changed before the remaining lines are entered. See example 
below for the case where HIMEM is 32768: 

NEW 

30060 PRINT EXECLINE 

32040 PRINT TR (I) 

(hit reset to enter monitor) 

*7FEC;74 

*7FF9:74 

(enter Control/C) 

LIST 

30060 LIST EXECLINE 

32040 LIST TR (I) 

Using The Utility 

1. After coding the assembler and BASIC utility programs, the 
test program is then appended. This may be done by a RUN 
31000. Start the cassette recorder and hit Return when 
prompted. The test program will be appended to the utility 
program provided its highest line number is less than 29970. 

2. Create a line O that will be used to indicate that a line has 

successively executed. For example, code: 
O REM ***ABOVE LINE REPEATED*** 

3. Run the utility of your choice: 

RUN 30000 Version 1 (Real-time list) 

or RUN 32000 Version 2 (Post-execution list) 

4. Insert the TRACE/NOTRACE statements wherever desired in 
test program. Just enter the TRACE command directly if you 
want to trace the entire program. Also see Warning #1. 

5. RUN the test program. 

6. Display the results: 

A. Real-time Version: The lines will be listed automatically 
as executed. Note the FOR: NEXT loop in line 30090 can 
be adjusted to control the execution rate. The upper limit 
could be PDL(O), thereby giving you run-time control 
over the execution rate. Note also that execution can be 
forced to pause by depressing paddle switch O. 
Execution will resume when the switch is released. 



MARCH 107') 



MICRO 10:0 



B. Post-execution Version: After stopping or ending the 
program, enter a GOTO 32020 command. The first page 
of statements will be displayed. Enter a "C" to display 
additional pages, a "T" to reset for another test run, or an 
"E" to return to BASIC. Note that even if you have traced 
with Version I, you can still display the last 100 lines with 
Version 2. 

Sample Run 



Test Program 



REM ««« REPEATED »«« 

10 TRACE 

30 G0SUB 100+RNDC3) *10 

40 FOR 1=1 TO 10: NEXT I 

50 GOTO 30 

100 PRINT "LINE 100": RETURN 

110 PRINT "LINE 110": RETURN 

120 PRINT "LINE 120":POP 

125 NO TRACE: END 

> RUN 30000 

> RUN 



Trace Output 



30 G0SUB 100+RND(3)«10 
110 PRINT "LINE 110": RETURN 

LINE 110 

30 GOSUB 100+RND(3)«10 
40 FOR 1=1 TO 10:NEXT I 
REM «»» REPEATED *** 
50 GOTO 30 

30 GOSUB 100+RND(3)«10 
120 PRINT "LINE 120":P0P 

LINE 120 

125 NO TRACE: END 



For a slow motion game of "BREAKOUT", trace it with the 
real-time version! 

Hints And Warnings 

It's usually a good idea to deactivate TIR after the test program has 
ended by hitting Reset and Control/C and entering NOTRACE. 
Don't try to trace the test program without first running the utility 
program at line 30000 or 32000. 

To increase the debugging power of the real-time trace utility, 
make liberal use of the push button to halt program execution. 
With practice and the proper choice of the delay loop limit in line 
30090, you can step through the program one line at a time. Enter a 
Control/C while the push button is depressed and execution will 
be STOPPED AT 30070. You can then use the direct BASIC 
commands to PRINT and change the current value of the programs 
variables. Enter CON and execution will resume. 



With additional logic in the utility program, you can create 
specialized tracing such as stopping after a specified sequence ot 
statements has been detected. Return via a CALL 958 if you don't 
want TRACE turned back on. 

Tracing understandably shows the execution rate of your program, 
but you probably aren't concerned with speed at this point 
However, the wise use of TRACE/NOTRACE will help move things 
along. Also, when encountering a delay loop such as FOR I = 1 to 
3000: NEXT I, you may want to help it along by stopping with a 
Control/C entering 1 = 2999, and CONtinuing. 

Warning #1: There must be no PRINT statement with a # charactei 
in the output. TIR assumes that a # is the beginning of a trace 
sequence. Either remove the # or bracket the PRINT statemenl 
with a NOTRACE/TRACE pair. 

Warning #2: There must.be no variable names in the test prograrr 
identical to those in Version 1 The TR variable name must b< 
unique in both versions. 

Warning # 3: Line O in the test program should be a REMarl 
statement as described above to avoid confusion. Line O is listec 
when a line is successively repeated. 

Warning # 4: Once TRACE has been enabled, the test prograrr 
must not dynamically reset the variables pointer (SCC.CD) with , 
CLR or POKE unless it first disables TRACE and resets $13.14; e.g. 
100 NOTRACE:CLR: POKE 19, O: POKE 20,0: TRACE is OK 

Extensions 

The primary motivation for this program was to improve th< 
TRACE function in Integer BASIC. However, one can imagine othe 
uses of a program that gains control as each statement is executec 
— maybe the kernel of a multiprogramming executive. I would b( 
interested in seeing your comments and modifications. 



Location 



ZERO PAGE MEMORY MAP 



Use 



$00.01 SAVE AREA FOR HIMEM. APPEND USES 
$05 PROGRAM SWITCH 0N=$FF 0FF=$7F 
Turned on when trace # charactei 
($a3) is detected. Turned off 
when next space character ($A0) 
is detected 
$13-14 ADDRESS OF TR STORAGE VARIABLE 
$15.16 ADDRESS THAT CAUSES RETURN TO 

LINE 30020 IN BASIC LIST UTILITY 
(Version I) 
$17-18 SAVE AREA FOR $DC.DD. ADDRESS OF 
CURRENT BASIC LINE IN TEST 
PROGRAM 
$1B.1C SAVE AREA FOR $E0.E1. ADDRESS OF 

STATEMENT WITHIN BASIC LINE 
$A0 APPLE II TRACE FLAG 0N=$FF 
0FF=$7F 
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TRACE INTERRUPT RGL'TINE 

BY ALAN C. HILL 
23 NOVEMBER 197P 

COMMERCIAL RIGHTS RESERVED 



0300 






ORG 


$0300 




0300 24 


AC 


START 


BIT 


$OOAC 


IS TRACE ON? 


0302 30 


03 




BMI 


$0307 


BRANCH YES 


G3G4 40 


ED FD 


PRINT 


JMP 


$FCFC 


NO. BACK TG PRINT 


03C7 C9 


A3 


TRACE 


CMPIM 


$A3 


NUMBER SIGN? 


C3G9 EO 


CD 




BEG 


SWCN 


BRANCH YES. IT'S A TRAC 


03CB 24 


D5 




BIT 


$0005 


SWITCH ON? 


P3CD JO 


F5 




BPL 


PRINT 


NC. PRINT CHARACTER 


03 OF C9 


AG 




CMPIM 


$AC 


SPACE? 


0311 DO 


04 




ENE 


RETURN 


NO. RETURN W/0 PRINTING 


0313 4C 


D3 D3 




JMP 


TRCOFF 


VER. II LDAIM $7F 


0316 EA 






NOP 




VER. II STA $05 


0317 60 




RETURN 


RTS 




BACK TO BASIC 


0318 A9 


FF 


SWCN 


LCAIM 


$FF 


TURN ON SWITCH 


031A 65 


05 




STA 


JD005 




031C A5 


13 




LDA 


$0013 


FIRST TIME THRU? 


031E DC 


49 




BNE 


GLINO 


BRANCH NC. TO GET LINE 


0320 A5 


14 




LDA 


I0C14 




C322 DO 


45 




BNE 


CLING 




0324 A5 


CD 




LDA 


$OOCD 


YES. SETUP TR ARRAY 


0326 65 


14 




STA 


$0014 


IN VARIABLES 


C326 A5 


CO 




LDA 


$DCCC 


AREA AND ADJUST 


032A 65 


13 




STA 


$0013 


POINTER 


032C ie 






CLC 






032D 69 


CF 




ADCIM 


$CF 




032F 85 


CC 




STA 


$cccc 


NEW PV 


0331 A 5 


CD 




LDA 


$OCCD 




0333 69 


00 




ADCIM 


$D0 




0335 65 


CD 




STA 


$OGCC 




0337 AC 


DO 




LDYIM 


SCO 




0339 A 9 


D4 




LDAIM 


$CA 


fl Til 


C33B 91 


13 




STAIY 


$13 




C33D ce 






INY 






033E A 9 


D2 




LDAIM 


$C2 


"R" 


0340 91 


13 




STAIY 


$13 




0342 06 






INY 






0343 A9 


DO 




LDAIM 


$C0 




0345 91 


13 




STAIY 


$13 


DSP 


0347 ce 






INY 






D34E A5 


CC 




LDA 


$OOCC 




034A 91 


13 




STAIY 


$13 


NVA 


034C ce 






INY 






034D A 5 


CD 




LDA 


$COCD 




034F 91 


13 




STAIY 


$13 




C351 IF 






CLC 






C352 A9 


04 




LCAIM 


$04 


POINT $13.14 TG rR 


0354 65 


13 




ADC 


$0P13 


DATA AREA-1 



LINE 



NO. 
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C356 


85 


13 




STA 


$0013 






C358 


A 5 


14 




LDA 


$0014 






C35A 


69 


CC 




ADCIM 


$00 






C35C 


85 


14 




STA 


$0014 






C35E 


A0 


CA 




LDYIM 


$CA 


INITIALIZE TR ARRAY 




C36C 


A9 


FF 




LDAIM 


$FF 


TC ALL FF'S 




C362 


91 


13 


FLOOP 


STAIY 


$13 






0364 


ee 






DEY 








0365 


DC 


FB 




BNE 


FLOCP 


LGCP TIL DONE 




0367 


FC 


29 




BED 


SLINE 


ALWAYS 




0369 


AC 


G2 


GLINC 


LDYIM 


$02 






03 6B 


Bl 


13 


TLINE 


LDAIY 


$13 


IS LAST LINE NO. 




03 6D 


Dl 


DC 




CMPIY 


$DC 


SAME AS THIS ONE? 




G36F 


DO 


C8 




BNE 


NLINE 


BRANCH NO 




G371 


ee 






DEY 








0372 


DO 


F7 




BNE 


TLINE 


LOOP 




0374 


98 






TYA 




YES. PUT ZERO 




0375 


4e 






PHA 




LINE NO. IN 




0376 


48 






PHA 




STACK TEMPORARILY 




0377 


FO 


21 




BEC 


TSTACK 


ALWAYS 




0379 


AO 


02 


NLINE 


LDYIM 


$02 


IS THERE ALREADY A 




03 7B 


Bl 


13 


TLOOP 


LDAIY 




ZERO AT THE TCP? 




03 7D 


DO 


13 




BNE 


SLINE 


BRANCH NO TC GET LINE NO. 




03 7F 


88 






DEY 








0380 


DO 


F9 




BNE 


TLOCP 


LOOP 




0382 


A2 


02 




LDXIM 


$02 


YES 




0384 


08 






INY 








03E5 


Bl 


DC 


CLOOP 


LDAIY 


IDC 


COMPARE WITH NEXT 




0367 


08 






INY 




LAST LINE NO. 




0388 


08 






INY 








0389 


Dl 


13 




CMPIY 


$13 






C38B 


DO 


05 




BNE 


SLINE 


IT'S DIFFERENT. SAVE IT 




038D 


ee 






DEY 




IT'S SAME 




03 8E 


CA 






DEX 








03 8F 


DC 


F4 




BNE 


CLCCP 


LOOP 




0391 


60 






r rs 




STILL THE SAME. RETURN TC 


TRACE 


0392 


AG 


C2 


SLINE 


LDYIM 


$02 






0394 


Bl 


DC 


PLINE 


LDAIY 


$DC 


PICK UP LINE NO. 




0396 


48 






PHA 




HOLD IN STACK TEMPCRARILY 




C397 


£? 






DEY 








C358 


DC 


FA 




BNE 


PLINE 


BCTH CICITS 




03 5A 


AO 


CB 


TSTACK 


LDYIM 


$CB 


PUSH DOWN ALL TR 




03 9C 


Bl 


13 


PLOOP 


LDAIY 


$13 


ELEMENTS TO 




03 5E 


08 






INY 




MAKE ROOM FOR 




03 5F 


CE 






INY 




NEW LINE NO. AT TR(O) 




03A0 


91 


13 




STAIY 


$13 






C3A2 


EE 






DEY 









\1K RO !0 U MARC I' T)70 



03A3 


88 




G3A4 


88 




03 A 5 


DO 


F5 


03A7 


AC 


01 


C3A9 


6e 




03 A A 


51 


13 


03AC 


ce 




D3AD 


6e 




03AE 


51 


13 


03B0 


60 




03B1 


A5 


DC 


03B3 


85 


15 


COB 5 


A5 


DD 


03B7 


85 


16 


03B9 


60 




D3BA 


A9 


FF 


03BC 


85 


AO 


03BE 


A5 


17 


03C0 


85 


DC 


C3C2 


A5 


18 


03C4 


85 


DD 


03C6 


A5 


IB 


G3C8 


85 


EO 


03CA 


A5 


1C 


03CC 


85 


El 


03CE 


68 




03CF 


ee 




03DC 


4C 


ei E8 


03D3 


A9 


7F 


C3D5 


E5 


C5 


C3D7 


85 


AC 


C3D9 


A5 


DC 


03DB 


85 


17 


G3DD 


A5 


DD 


C3DF 


65 


18 


C3E1 


A 5 


15 


C3E3 


85 


DC 


03E5 


A 5 


16 


03E7 


65 


DD 


03E9 


A5 


EC 


03EB 


65 


IB 


03EC 


A5 


El 


03EF 


85 


1C 


G3F1 


£8 




03F2 


£8 




03F3 


4C 


8 A EE 



DEY 

DEY 

BNE PLOOP LOOP UNTIL DONE 

LDYIM fOl 

PLA PUT NEW LINE NO. OR 

STAIY $13 ZERO IN TR(O) 



INY 

PLA CET HIGH ORDER BYTE 

STAIY $13 STUFF IT TOO 

RTS RETURN TO BASIC 

SAVE LDA $OCDC ROUTINE TO SAVE ADDRESS 

STA $0015 SO TIR WILL CAUSE BASIC 

LDA $CODD TO EXECUTE LIME 30C20 

STA $0016 WHEN TRACE SEQUENCE IS DETECTED 

RTS RETURN TO UTILITY 

TEST LDAIM $FF ROUTINE TO RE-ENTER TEST PGM 

STA $00A0 TURN TRACE BACK ON 

LDA $0017 RESTORE TEST PROCRAM 

STA $OCDC LINE NO. 

LDA $0018 

STA $OODD AND 

LDA $001B 

STA $00E0 STATEMENT ADDRESS 

LDA $001C 

STA $C0E1 

PLA POP UTILITY ADDRESS 

PLA. FROM STACK 

JMP $E881 RE-ENTER BASIC TRACE ROUTINE 

TRCOFF LDAIM $7F TURN OFF 

STA $0005 SWITCH AND 

STA $OCAC TRACE: (DON'T TRACE UTILITY) 

LDA $OODC 

STA $0017 SAVE ADDRESS OF 

LDA $OGDD TEST PGM LINE NC. 

STA $0016 

LDA $DC15 SETUP TO TC TO UTILITY 

STA $OODC TO LIST LINE NC. 

LDA $0016 SETUP LINE ADDRESS 

STA $OODD 

LDA $COEO SETUP STATEMENT ADDRESS 

STA $C01B 

LCA $CCE1 

STA $C01C 

PLA REMOVE ADDRESS FRCM STACK 

PLA 

JMP $EF8A GO TC UTILITY VIA CONTINUE 
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VERSION I; Real-Time Trace List Utility Program 



29770 
29980 
29990 
30000 



30005 
30010 
30020 
30030 
30040 
30050 
30060 
30070 
30080 
30090 
30100 
30110 



REM REAL-TIME TRACE LIST UTILITY PROGRAM 

REM SET-UP COUT AND INITIALIZE ZERO PAGE VALUES 

REM SET-UP TIR ASSEMBLER JUMP 

NOTRACE; POKE 54,768 MOD 256: POKE 55,768/256: 

POKE 19,0:POKE20,0=POKE 787,76: POKE 788,211: 

POKE 789,3: POKE 790,234 

REM SAVE ADDRESS SO TIR RETURNS TO LINE 30020 

CALL 945 :END 

EXECLINE=TR(0): IF EXECLINE #0 THEN 30050 

IF RRRRR=1 THEN 30070 

RRRRR=1 : GOTO 30060 

RRRRR=0 

LIST EXECLINE 

IF PEEK (-16287)>127 THEN 30070: REM PAUSE IF SW(0) ON 

•IF EXECLINE = THEN 30 100: REM SKIP DELAY 

FOR JJJJJ=1 TO 100: NEXT JJJJJ: REM DELAY 

CALL 954: REM BACK TO TEST PGM 

END: REM NEVER EXECUTED 



31000 REM APPEND TEST PROGRAM 

31010 INPUT "HIT RETURN TO APPEND" A$ 

31020 POKE 0, PEEK(76): POKE 1, PEEK (77): POKE 76, PEEK (202) 

POKE 77, PEEK (203): CALL-3873: POKE 76, PEEK (0): 

POKE 77, PEEK (D:END 



VERSION II: Post-Execution Trace List Utility Program 



32000 



32010 
32015 
32020 



32030 

32040 
32050 
32060 
32070 
32080 
32090 
32100 



NOTRACE: POKE 54,768 MOD 256: POKE 55,768/256: POKE 19,0: 

POKE 20,0: POKE 787,169: POKE 788,127: 

POKE 789,133: POKE 790,5 

PRINT "TRACE SET UP. ENABLE TRACE IN TEST PROGRAM": END 

REM GOTO 32020 WHEN TEST PGM ENDED 

NOTRACE: POKE 54,240: POKE 55,253: 

IF PEEK (20)#0 THEN 32030: PRINT "TRACE 

WAS NOT ON IN TEST PROGRAM": GOTO 32090 

CALL-936: FOR 1=100 TO 1 STEP-1: 

IF TR (I)=-1 THEN 32060 

LIST TR (I) 

IF PEEK (37)>18 THEN 32090 

NEXT I 

GOTO 32090 

CALL-936: IF I>1 THEN 32060 

PRINT:PRINT "C/T/E?" 

KEY=PEEK(-16384): IF KEY< 128 THEN 32100: 

POKE -16368,0: IF KEY=212 THEN 32000: 

IF KEY=195 THEN 32080: END 
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Mike Rowe 

P.O. Box 3 

S. Chelmsford, MA 01824 







Name: MAXIT! 
System: PET 
Memory: 8K 
Language: BASIC 
Hardware: Standard 

Description: A challenging number game played between two per- 
sons or versus the PET. From an 8 x 8 board players alternatively 
move horizontally and vertically trying to maximize their score and 
minimize their opponents. An exciting, engrossing game, that bears 
returning to multiple times. Suitable for young and old alike. Ex- 
cellent graphics. 
Copies: 50 plus 

Price: $4.95 plus 32* tax for CA residents, pp. 
Includes: Cassette and 2 page printed instructions. 
Author: Harry |. Saal 
Available from: ■ 

Harry J. Saal 

810 Garland Drive 

Palo Alto, CA 94303 

Name: 6502 Tiny Editor - Assembler 
System: Any 6502 based system. 

Memory Program takes 1K, 4K recommended for source and object 
code and label table. 
Language: Machine Language 
Hardware: ASCII Keyboard and CRT display. 

Description: A single pass assembler, closely follows MOS 
Mnemonics, and is extremely memory efficient. The editor is 
designed to be easily extended by the user. Editor commands in- 
clude: Find line, delete line, insert line, list source, list symbolic 
labels, define label, and set origin. A single pass assembler allows 
the object code to overwrite the source code - larger source 
programs can be assembled in a given memory size. 
Copies: Just released: 

Price: $19.95(KIM-1 Hypertape cassette: $3.00 extra) 
Include: User manual and complete source and object listing, fully 
commented, with modification instructions. 
Author: Michael Allen 
Available from: 

Michael Allen 

6025 Kimbark 

Chicago, IL. 60637 

Name: 6502 ROBOT 
System: Any 6502 based system 
Memory: 1.5K 

Language: Machine language 

Hardware: ASCII Keyboard and CRT display, or "turtle", or plotter. 
Description: ROBOT is an interactive programming language for 
the control of robots, such as "turtle", plotter or CRT cursor. 
ROBOT'S command processing module is designed to allow the user 
to design his own language of personalized commands and com- 
mand subroutines to suit his particular application. The version of- 
fered here includes a command set and subroutine package for the 
control of a CRT robot. 
Copies: )ust released. 

Price: $5.00(KIM-1 Hypertape cassette: $3.00 extra) 
Include: user manual, complete and fully commented source and 
object listing, instructions for adapting, modifying, and using the 
command processing module for other applications. 
Author: Michael Allen 
Available from: 

Michael Allen 

6025 Kimbark 

Chicago, IL 60637 



Name: OSICames 

System: Challenger 

Memory: 4K8K 

Language: Basic and Assembly 

Hardware: Challenger 

Description: The game programs are written for the challenger with 

the 440 video display and ASCII keyboard. Most of these will run on 

the 2p and 1 p. Games such as Bomber and Klingon are written with 

simulated animation and Klingon also will support sound with PIA, 

port and tone oscillator. We also have lunar lander; Battleship; and 

others. 

Copies: Just released 

Price: $8.00 for listing and instructions and 300 baud cassette 

Author: William L Taylor 

Available from: 

William L. Taylor 

264 Flora Rd. 

Leavittsburg, Ohio 44430 

Name: LINK 

System: PET 

Memory: Any amount 

Language: Assembly 

Hardware: Standard PET 

Description: This program will allow the user to link exclusively 

numbered BASIC programs in memory. This allows the programmer 

to develop complex programs as sub modules and then merge them 

together into the final functioning unit. A great time saver as the 

programmer can develop a library of subroutines which can be 

merged virtually at any time with the program which he is 

developing. With complete instructions on use. 

Copies: Just released 

price: $12.95 ppd, Michigan residents add 4 % sales tax. 

Includes: Cassette and instructions 

Author: C.Salked 

Order Info.: Master Charge and Visa accepted. 

Available from: 

Your local PET dealer or 

Dr. Dalev 

425 Crove Ave. 

Berrien Springs, Ml 49103 

616-471-5514 

Name: PILOT 

System: PET 

Memory: 8K minimum 

Language: BASIC 

Hardware: Standard PET 

Description: A simple to use, easy to learn programming language. 

This is especially suited for use by children. Only 10 commands to 

learn with no complicated syntax plus special cursor and graphics 

control commands. 

Copies: 25 

Price: $12.95 ppd, Michigan residents add 4% sales tax. 

Includes: cassette and users manual. 

Author: R.F. DAley 

Orther Info.: Master Charge and Visa accepted 

Available from: 

Your local PET dealer or 

Dr. Daley 

425 Crove Ave. 

Berrien Springs, Ml 49103 

616-471-5514 
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Name: BASIC Modification Package 

System: KIM expanded to run Microsoft-9 digit KIM BASIC 
Memory: Locations DO to EO and 200 to 2E4 used in addition to 
locations in unmodified program. 
Language: Machine 

Hardware: None additional. Optionally supports a terminal with x- 
on/x-off feature. 

Description: Enhancements and modifications to Microsoft 9-digit 
KIM BASIC (sold by Johnson Computer). Machine Language patches 
to original program. BASIC and mods can be loaded with only one 
tape. Jim Butterfield's Hypertape (and other routines) are relocated 
to low memory on initialization. SAVE and LOAD at Hypertape 
speeds. SAVE and LOAD messages improved. SAVE returns to 
BASIC. Programs with higher line numbers can be appended. This 
means BASIC subroutines, DATA statements and utility programs 
(RENUMBER) can be added after program development. Interrupt 
running programs and listing reliably with ST button. GET (one 
character or digit) command noted and fixed. Terminals with x-on/x- 
off feature will load paper or cassetts tapes perfectly. BASIC 
programs saved on cassette tapes with different initialization con- 
ditions can be used interchangably. A 1/10 sec counter can be star- 
ted, stopped and read under program control. Time and control ex- 
ternal events with this Jeffrey counter (named after former student 
and pun intended). 
Copies: > 10 

Price: $15 check or money order. 

Includes: Object code listing, instructions, examples, miscellaneous 
information and help from the author (by correspondence). 
Author: Harvey B. Herman 
Available from: 

Harvey B. Herman 

2512 Berkley Place 

Greensboro NC 27403 



Name: PET Library 

System: PET 

Memory: 8K 

Language: Basic, some Assembler 

Hardware: No Special 

Description: A variety of PET programs including games, 

educational, music, astronomy, financial, and many others 

Copies: 100 + 

Price $2.50 first program $1.50 each additional. 

Includes: Cassette & Postage 

Order Info.: Send Business envelope and postage for complete list 

of programs available. 

Author: Russell Crokett 

Available from: 

PET Library 

401 Monument Rd. #177 

Jacksonville, FLA 32211 

Name: LIFE for the KIM-1 

System: KIM-1 with an XITEX VI DEO BOARD. 

Memory: 2K ($2OO0-$280O plus 30 bytes on page zero.) 

Language: Assembler 

Description: This program will play Conway's game of LIFE. The 

program will plant one living cell in mid-screen, and then ask for 

coordinates, measured from the center, for other living cells. A 

generation takes about 1/6 second for every birth and death. The 

program may be patched to accommodate other video boards. 

Copies: Just released. 

Price: $2-00 for description and listing. 

$5.00 for object tape on cassette in HYPERTAPE format. 
Author: Theodore E. Bridge 
Available from: 

Theodore E. Bridge 

54 Williamsburg Dr. 

Springfield, MA 01108 



NOW AVAILABLE 
PET Software In BASIC 



Statistics: 

Distribution 

Linear Correlation and 



$ 5.95 



Regression 


5.95 


Contingency Table Analysis 


5.95 


Mean and Deviation 


5.95 


all four for only 


18.95 


Financial: 




Depreciation 


5.95 


Loans 


5.95 


Investment 


5.95 


all three for only 


12.95 


General: 




Tic Tac Toe 


4.95 


Complete Metric Conversion 


5.95 


Checkbook Balancer 


4.95 


all three for only 


10.95 



FOR THE KIM-1 

A real-time Process Control Operating 

System including a process language interpreter 
— (operates in the IK KIM-1 RAM). 



Assembly listing 

Cassette tape and users manual 

Schematic for relay control board 



$24.95 

14.95 

9.95 



All programs on high-quality cassette tape. Send 
self-addressed, stamped envelope for complete 
software catalogue. 

Send check or money order to: 

H. Geller Computer Systems 

Dept. M 

P.O. BOX 350 

New York, New York 10040 

(New York State res. add 8% sales tax) 
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Richard F. Suitor 
166 Tremont Street 
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MICRO 6:4 summarized some discussion from EDN concerning 
their difficulties with interface design. One point in particular 
caught our eye - a statement that the 6522 VIA chip cannot use the 
Apple-generated device select signal (from pin 41 of the I/O slot) 
because the data sheets clearly require that the chip be selected 
180 ns before the I/O enable signal goes high, whereas the 
Apple-generated signals occur nearly simultaneously. That is a 
misconception which we would like to correct. We report a 6522 
interface that uses the pin 41 select signal, that theoretically ought 
to work and in fact does work. 

the 6522 V I A - Why Bother? 

Since there are several interfaces both supplied by Apple and by 
other vendors, why bother? VIA stands for Versatile Interface 
Adapter. It was designed by MOS Technologies, the same folks 
who brought us the 6502 and it is well named. It has two I/O ports, 
two timers and a shift register, and so many options in operating 
them that we won't try to list them. A very useful feature is that all 
of the functions can interrupt the 6502. Several software tasks 
(cassette I/O, music, software generated serial I/O) require the 
Apple to spend most of its time in timing loops. With the use of 
timers and interrupts, these functions can be performed while the 
system is running some other program. You can have your STAR 
WARS theme while shooting TIE fighters, instead of after; more 
prosaically, you can print edited text while editing more. The 6522 
is quite flexible because of its versatility; it is a definite asset to the 
Apple. 

What's the Big Problem? 

The 6522 was designed to work well with the 6502. The signals at 
the Apple I/O slots are not all 6502 signals, however - some are 
decoded device select signals, which would be very convenient to 
use if we could. According to the referenced letter, we can't - there 
is not enough time to select the chip. As mentioned before, the 
problem is not insurmountable; let's discuss timing a bit. The 6522 
has 16 registers that control all the bells and whistles. To 
communicate with the 6522 from the CPU, one: 

1. Selects one of the 16 registers with the address lines. 

2. Selects (turns on) the 6522 chip itself. 

3. Enables the I/O transaction. 

4. Disables the I/O transaction. 

5. De-selects the chip. 

Some of the processes take time. For example, th 6522 data sheets 
DO say that the address must be valid 180 ns before the I/O 
enable. They ALSO state that the select is normally derived from 
the address lines. However, the timing tolerance referred to is the 
register select operation of step 1, and it must occur 180 ns before 
the I/O enable of step 3. The data sheets DO NOT specify the chip 
select time of Step 2. A representative of MOS Technologies, 
looking at the circuit diagrams, estimated that it would be 
sufficient to have Step 2 occur 40 - 50 ns before Step 3. He did not 
offer a minimum lead time requirement. 



The 6502 and the 6522 expect that Step 3 will occur when the 6502 
02 signal goes high and that Step 4 will occur when 02 goes low. 
The enable signal presented at the I/O port of the Apple is actually 
§0, a signal which leads 02 by 50 - 70 ns. That is a very short time, 
but long compared to the 10 ns or so it takes an LS gate to operate. 
There are three LS gates involved in a transfer (the chip itself, and 
data bus buffers at each end) giving a nominal 30 ns timing 
tolerance. Actually, if the devices on the data bus are properly 
tristated (i.e. they have very high impedance unless they are 
active), the capacitance of the bus and the buffer delays will 
probably permit proper operation with the §0 enable pulse. There 
certainly seem to be several circuits using that signal that work 
(now including, for some unknown reason, EDN's.) 

In summary, there are perhaps two problems in interfacing a 6522 
to the Apple: 

1. One may indeed need to select the chip before enabling the 
I/O, but no more than 40 - 50 ns before. 

2. One may need to use an I/O enable signal that is coincident 
(within about 30 ns) with the 6502 02. 

It is not at all clear what one could get away with if one tried; it is 
clear that if the requirements 1 and 2 are met, the 6522 should 
interface easily to the Apple II. However, since the device select 
and I/O select signals that Apple supplies de-select at the end of 
^0, one should reasonably expect that an interface that tristates 
when these signals deselect should work satisfactorily with the 
Apple despite the fact that the 6502 is accepting data for another 
50 ns. It is apparent from the discussion that has resulted from 
EDN's efforts that many interfaces so designed do work 
satisfactorily; it is not clear how marginal the operation is. 

There is an interesting discussion of the Apple timing in the Sept. 
issue of KILOBAUD starting on page 10. They reported on a 6522 
interface and found that the important time was the rise of the I/O 
enable signal. Since they do not mention what was done for chip 
select and for data bus buffering, one can only wonder if chip 
select timing was affecting their results. 

We decided to play safe and satisfy both requirements. One way to 
satisfy the second is to use the real 02. As it turns out, this also 
satisfies the first, because 02 lags the device select signal by about 
50 ns. This coincidence may have led to some confusion in 
interpreting timing experiments! This is the approach we followed; 
in retrospect, knowing what we do now, we would have preceded 
otherwise (i.e. perhaps used a delayed device select signal as an 
I/O enable signal.) Since it does no good to have the I/O enabled 
if the chip and the data bus buffers aren't, we lenghtened the 
device select signal by delaying it and ANDing it with itself. We 
had no problems with this approach. (It is not a better' solution 
than Mr. Scouten's; he is quite right that one cannot use both the 
pin 41 signal and the t|0 directly with the 6522 for their intended 
functions. The difference, however, between 180 and 50 ns 
required setup time makes it feasible to use the pin 41 decoded 
device select signal if one chooses.) 
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305 Riverside Drive. New York. N.Y. 10025 
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program. 

1 GRAPHICS PAC Quadruple your PET's graphic resolution. Do not 

be stuck with the PET's cumbersome 25X40 1000 
point display. With the Graphics Pac you can indi- 
vidually control 4000 points on screen. It's great for graphing, plotting, and gaming. The 
Pac is a. set of three programs with full documentation. PLOT places coordinate 0,0 in the 
screen's upper left hand corner. For more sophisticated applications the Pac includes 
GRAPH which plots point 0,0, in the center of the screen allowing you to plot equations in 
all four quadrants. As a bonus a Hi Res Doodle game is included. All this on a high qual- 
ity cassette for $9.95 

2 ASSEMBLER 2001 is a full featured assembler for your PET micro- 

computer that follows the standard 6502 set of ma- 
chine language mnemonics. Now you can write 
machine code programs. Store your assembled programs, Joad them, run them, and even 
list your programs and various PET subroutines. Unlike other assemblers this is one pro- 
gram! You do not have to go through a three tape process to edit and run a program. Of 
course to make more space you can trim out the features you do not need. Assembler 2001 
allows you to run through the USR of SYS commands. This valuable program is offered at 
$15.95. 

3 BIKE An exciting new simulation that puts you in 

charge of a bicycle manufacturing empire. Juggle 
inflation, breakdowns, seasonal sales variations, 
inventory, workers, prices, machines, and ad campaigns to keep your enterprise in the 
black. Bike is dangerously addictive. Once you start a game you will not want to stop. To 
allow you to take short rest breaks, Bike lets you store the data from your game on a tape 
so you can continue where you left off next time you wish to play. Worth a million in fun, 
we'll offer BIKE at $9.95. 

4PINBALL Dynamic usage of the PET's graphics features 

when combined with the fun of the number 1 arcade 
game equals an action packed video spectacle for 
your computer. Bumpers, chutes, flippers, free balls, gates, a jackpot, and a little luck 
guarantee a great game for all. $9.95. 

5 SUPER DOODLE Give your PET a workout. This program really 

puts the PET's graphics to work. Super Doodle lets 
you use the screen of your PET like a sketch pad. 
Move a cursor in eight directions leaving a trail of any of the 256 charactrs the PET can 
produce. New features include an erase key that automatically remembers your last five 
moves, a return to center key, and clear control. Why waste any more paper, buy Super 
Doodle for onlv $9.95. 

6 DRIVING ACE Non stop excitement with a fast- moving, high 

paced version of your favorite video arcade racing 
games. Shift up! Shift Down! Watch your gas, and 
be careful on those hairpin turns. This dynamite tape has the two most common arcade 
racing games specially adapted to run on your PET computer. Driving Ace simulates an 
endless road packed with tight turns and gentle, but teasing, twists. Starting with fifty 
gallons of gas, how far can you go with a minimum of accidents? Grand Prix places you 
and your car on a crowded racing track. Race the clock and be careful steeringaround the 
fast but packed Grand Prix track. $9.95 

Dealer Rates On Request 



HIGH-RESOLUTION PLOTTINGFOR THE PET 



>-"% 



John R. Sherburne 

206 Goddard 

White Sands Missile Range, NM 88002 







t 
I 



The PET Machine Language Monitor gives PET users a greatly ex- 
panded ability to devleop and use assembly language programs. 
While early buyers of PET have had to wait a while for the Monitor, 
the ability to save and load machine language programs directly to 
and from cassette is well worth the wait. Access to machine 
language has always been available through the POKE command, 
but translating op codes and addresses from hex to decimal and 
back is tedious. Also, the need to load a program via another BASIC 
program or via the keyboard is wasteful and time-consuming. PET's 
Monitor allows an assembly language program to be saved and 
loaded as easily as the BASIC program. Better yet, an assembly 
language program can be written to reside in an unused section of 
memory such as the second cassette buffer. A BASIC program can 
then be loaded in the usual manner and can use the machine 
language program as a subroutine. 

One way that the use of a resident machine language routine can be 
a big help is in implementing high-resolution plotting on the PET. 
High-resoltuion plotting, in effect, expands PET's 40 x 25 character 
display to 80 x 50. To do so, each character is divided into quarter 
characters. The four basic quarter characters are displayed by 
pressing "SHIFT" and "," or ";" or "K" or ">". There are a total of 
sixteen possible combinations of these four quarter characters 
which can be used to produce a high-resolution plot. The process of 
producing such a plot in BASIC, however, is complex and slow. A 
machine language subroutine, on the other hand, can make the 
plotting process quite simple. For example, the Lissajous figure in 
* Figure 1 was plotted with this program: 

]0 POKE 1,58:P0KE 2,3:PRINT (clr)" 

20 D£LTAr2*tf/900 

30 P=3:Q=4 

40 FOR 1=0 TO 900 

50 THETArDELTA*I 

60 X=INr(39.5+38*C0S(P*THETA)) 

70 YrINT(25.5+24*SIN(Q*THETA)) 

80 POKE ei,X:P0KE 82,Y:A=USR(0) 

90 NEXT I 

100 GET A$:IF A$="" THEN 100 

The machine language routine is called in line 80 with the USR 
command after first POKEing the X and Y coordinates to be plotted 
in memory locations 81 and 82, respectively. The values of P and Q 
in line 30 determine the shape of the figure. The machine language 
plotting routine used by the program is listed below. The procedures 
for using it are: 

LOADING - The program is initially loaded into the second cassette 
buffer beginning in location S033A using the Monitor. The program 
is saved on cassette with the command: .S,01,HI-RES,033A,03CA. 
The value M3CA is the endng address plus one. Once saved, the 
program can be reloaded into the cassette buffer with the normal 
command: LOAD"HI-RES". 

BASIC INTERFACE - With HI-RES loaded, the BASIC driver program 
can be loaded from cassette using normal procedures or the "NEW" 
command can be given and a new BASIC program entered from the 
keyboard. Before HI-RES can be called, the starting address, S033A, 
must be entered in memory locations 0001 and 0002. This was done 
in line 10 of the program above. HI-RES can now be called by the 
USR command. Before each call, the X and Y coordinates must be 
POKED into decimal addresses 81 and 82, respectively. Valid coor- 
dinate values run from to 79 in the X direction and from to 49 in 
the Y direction. Position 0, is in the upper left-hand corner of the 
screen. 



OTHER - If zero is used as the argument of the USR command, the 
plotting routine will overwrite any character already on the screen. 
If a value other than zero is used any non-plot character already on 
the screen will be left there. Thus axes and text can be preprinted on 
the screen and a graph later plotted without distrubing the preprin- 
ted data. .' 

RECREATIONAL GRAPHICS FOR PET 

There are probably a lot of practical uses for the PET high-resolution 
graphics program described above but I haven't had time to find 
them yet. Instead, I have spent countless hours in front of the 
display watching PET draw intriguing designs for which there is 
relatively little practical purpose. My addiction started simply 
enough. To test the HI-RES plotting routine; I wrote a program to 
draw an elipse using the formula: X=P*COS(©); Y = Q*SIN(©). 
Pleased with the result, I added a FOR loop to vary the values of P 
and Q and produced the family of elipses shown in Figure 1. I didn't 
realize it but I had embarked on a project which would take every 
free moment for the next two weeks. 

The next step was to modify the formula so that a flower rather than 
an elipse was produced. The new formula was: 



X=R*C0S(8); Y=R*SIN(8) where R=SIN(N*6) 
If N is odd, a flower with N leaves is 
produced; if N is even, the flower will 
have 2N leaves. Figure 2A is an eight 
leaved flower using the formula 
RrSIN(4*8). Figure 2B uses an alter- 
nate forumul: R=C0S(4*8). As with the 
ellipse, the next step was to produce a 
family of flowers (Figure 2C) by adding 
s FOR loop to vary the size of the 
flower and to alternate between the two 
formulas. 

By now I was completely hooked. I dug into a dusty book of 
mathematical formulas and found two rather obscure figures, the 
epicycloid and hypocycloid. Best known from the toy "Spirograph", 
the epicycloid is formed by tracing the path of a point on the cir- 
cumference of a circle as it is rolled around the outside of a second 
circle. The hypocycloid is formed when one circle is rolled around 
the inside of the other. The formulas are: 



Epicycloid: 

X=(P+Q)*C0S(AN)+0*C0S(P+Q)*AN/Q) 
Y = (P + 0)*SIN(AN) + Q*SIN(P + 0)*AN/C!) 

Hypocycloid: 

X=(P-0)*CCS(AN)+0*COS(P-0)*AN/Q) 
Y=(P-Q)*SIN(AN)-Q*SIN(P-Q)*AN/Q) 



♦Note: Figure 1 on cover 
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In OGth formulas P represents the radius of the stationary circle and 
Q the radius of the roliing circle. A typical epicycloid is shown in 
Figure 3. To plot these more complex figures a minor technical 
problem had to be solved. Many of the larger "cycloids" require 
more than one revolution of the roiling circle around the stationary 
circle. To avoid either stopping too soon or running too long, I had 
to add a routine to compute the number of revolutions required for 
the full figure. Since the rolling circle makes P/Q Revolutions in one 
circuit of the stationary circle, a complete figure is made when the 
rolling circle turns the number of times equal to the first integer 
multiple of P/Q. That multiple, N, times 2lffs the number of points 
or cusps in the cycloid. For convenience I print the number of cusps 
in the corner of the display. An eight cusp hypocycloid is shown in 
Figure 4. With both types of cycloid P and Q can be varied to 
produce a variety of figures. To avoid creating a figure too large to 
display, P must bei24 for a hypocycloid and P + 2*Q -24 for an 
epicycloid. 



As a final fillip, a third parameter can be added to the cycloid 
programs. Rather than trace a point on the circumference of the 
roliing circle, a point at a distance R from the center of the circle is 
traced. The value of R can be larger or smaller than Q. If R is larger 
than Q the formulas for determining the largest figure which the 
display can accomodate are: epicycloid, P + Q + R S 24; 
hypocycloid, P+ R -Q:£24. 



HI-RESOLUTION 

BY 30HN R. SHERBURNE 
FEBRUARY 1979 



033A 



ORG $033A 



033A A9 00 
033C 85 53 
033E 85 56 

0340 38 

0341 A5 51 
0343 E9 4F 
0345 30 03 
0347 E6 54 
0349 60 



START 



LDAIM $00 
STA $0053 
STA $0056 
SEC 

LDA $0051 
SBCIM $4F 
BMI CHECK 
INC $0054 
RTS 



INITIALIZE 



CHECK FOR VALID X 



C34A 38 
034B A5 52 
034D E9 31 
C34F 30 03 
0351 E6 55 
0353 60 



CHECK SEC 

LDA $0052 
SBCIM $31 
BMI HALF 
INC $0055 
RTS 



CHECK FOR VALID Y 



0354 46 51 
0356 90 02 
0358 E6 56 
03 5A 46 52 
C35C 90 04 
035E E6 56 
0360 E6 56 
0362 A9 01 
G364 A4 56 
0366 F0 06 

0368 0A 

0369 C6 56 
03 6B 4C 64 



HALF 



N0CAR 



N0CRY 
LOOP 



03 



LSR 

BCC 

INC 

LSR 

BCC 

INC 

INC 

LDAIM 

LDY 

BED 

ASLA 

DEC 

JMP 



$0051 

NOCAR 

$0056 

$0052 

N0CRY 

$0056 

$0056 

$01 

$0056 

MATCH 

$0056 
LOOP 



DIVIDE X AND Y BY 2 

DETERMINE QUADRANT OF NEW POINT 

AND PLACE QUADRANT NUMBER IN $0056 
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036E 85 


56 


MATCH STA 


$0056 




0370 06 


52 


ASL 


$0052 




03 72 06 


52 


ASL 


$0052 




0374 06 


52 


ASL 


$0052 




0376 A5 


52 


LDA 


$0052 




0378 06 


52 


ASL 


$0052 




03 7A 26 


53 


ROL 


$0053 




03 7C 06 


52 


ASL 


|0052 




.. 03 7E 26 


53 


ROL 


$0053 




0380 65 


52 


ADC 


$0052 




0382 85 


52 


STA 


$0052 




0384 A5 


53 


LDA 


$0053 




0386 69 


00 


ADCIM 


$00 




0388 85 


53 


STA 


$0053 




038A A5 


52 


LDA 


$0052 




038C 65 


51 


ADC 


$0051 




.038E 85 


52 


STA 


$0052 




0390 90 


02 


BCC 


NOCHG 




0392 E6 


53 


INC 


$0053 




0394 18 




NOCHG CLC 






0395 A 9 


80 


LDAIM 


$eo 




0397 65 


53 


ADC 


$0053 




0399 85 


53 


STA 


$0053 




039B A0 


10 


LDYIM 


$10 




039D A 2 


00 


LDXIM 


$00 




039F Al 


52 


LDA IX 


$0052 




03A1 88 




CHARAC DEY 






03A2 D9 


BA 03 


CMPY 


TABLE 




03A5 FO 


09 


BEQ 


FOUND 




03A7 CO 


00 


CPYIM 


$00 




03A9 DO 


F6 


BNE 


CHARAC 




03AB A6 


Bl 


LDX 


$00B1 




03AD FO 


CI 


BEQ 


FOUND 




03AF 60 




RTS 






03B0 98 




FOUND TYA 






03B1 05 


56 


ORA 


$0056 




03B3 A8 




TAY 






03B4 B9 


BA 03 


LDAY 


TABLE 




03B7 81 


52 


STAIX 


$0052 




03B9 60 




RTS 






03BA 20 




TABLE = 


$20 




03BB 7E 




= 


$7E 




03BC 7C 




= 


$7C 




03BD E2 




= 


$E2 




C3BE 7B 




= 


$7B 




03BF 61 




z 


$61 




C3C0 FF 




r 


$FF 




C3C1 EC 




r 


$EC 




03C2 6C 




z 


$6C 




03C3 7F 




z 


$7F 




C3C4 El 




= 


$E1 




03C5 FB 




r 


$FB 




0306 62 




r 


$62 




0307 FC 




= 


$FC 




03C8 FE 




z 


$FE 




03C9 AO 




r 


$A0 
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MULTIPLY Y BY DECIMAL 40. 
(NO. CHARACTERS PER LINE) 



ADD X TO Y * 40. 



LOOK UP CHARACTER IN SCREEN 
POSITION X+Y*40 IN TABLE 



IF NOT IN TABLE, CHECK $B1 FOR 
USR ARGUMENT 



COMPUTE NEW CHARACTER 

STORE NEW CHARACTER CN SCREEN 



TABLE CONTAINS ALL SIXTEEN POSSIBLE 
PLOT CHARACTERS 



MICRO 10:21 



POKE 1,58: POKE 2,3 

PRINT "(clr)" 

FOR R=4 TO 16 STEP 4 

P=38-R 

Q=8+R 

F=2* 7^/300 

FOR 1=0 TO 300 

AN=F»I 

X=INT(39.5+P*COS(AN)) 

Y=INT(24.5+Q*SIN(AN)) 
100 POKE 81,X:P0KE 82,49-Y:A=USB(0) 
110 NEXT I 
120 NEXT R 
130 GET G$:IF G$="" GOTO 130 



1 

10 

20 

30 

40 

50 

60 

70 

80 

90 




POKE 1,58:POKE 2,3 

PRINT "(clr)" 

P=24:N=4 

F=2*7T/600 

FOR 1=0 TO 600 

AN=I*F 

R=P«SIN(N*AN) 

X=INT(R*COS(AN)+39.5) 

Y=INT(R*SIN(AN)+24.5) 

POKE 81,X:P0KE 82,49-Y:A=USR(0) 
^ NEXT I 
100 GET G$:IF G$="" GOTO 100 



FIGURE 2B 



(Changes to 2A only) 
55 R=P*COS(N*AN) 




MICRO 10 22 
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1 POKE 1,58: POKE 2,3 FIGURE 3 

10 PRINT "(clr)" 

20 P=9;Q=15/2 

30 F=2* Tf/250 

40 FOR 1=0 TO 1250 

50 AN=I»F 

60 X=(P+Q)»COS(AN)+Q*CQS((P+Q)«AN/Q) 

70 Y=(P+Q)»SIN(AN)+Q«SIN((P+Q)*AN/Q) 

80 X=INT(X+39.5):Y=INT(Y+24.5) 

90 POKE 81,X:P0KE 82,Y:A=USR(0) 

100 NEXT I 

110 GET G$: IF G$="" GOTO 110 




FIGURE 2C 




(Changes to 2B only) 


20 


N=4 


31 


K1 = 1 


32 


FOR K2=0 TO 20 STEP 4 


33 


P=24-K2 


34 


K1=K1*-1 


55 


R=P*SIN(N*AN) 


56. 


IF KKO THEN R=P*COS( 




FIGURE 4 



1 POKE 1,58: POKE 2,3 

10 PRINT "(clr)" 

20 P=24:Q=9 

22 DT=300 

24 F=2« tfVDT 

28 FOR 1=1 TO 25 

30 DL=P«I/Q-INT(P»I/Q) 

32 IF DL<. 00001 GOTO 36 

34 NEXT I 

36 PT=I*P/Q 

38 PRINT "(home)";INT(PT+.5) 

40 FOR J=0 TO I*DT 

50 AN=J«F 

60 X=(P-Q)*COS(AN)+Q*COS((P-Q)*AN/Q) 

70 Y=(P-Q)*SIN(AN-Q*SIN((P-Q)»AN/Q) 

80 X=INT(X+39-5):Y=INT(Y+24.5) 

90 POKE 81,X:P0KE 82, Y: A=USR(0) 

100 NEXT J 

110 GET G$:IF G$="" GOTO 110 
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MICRO 10:23 




(213) 921-2111 



outer 



rum 



■••■ 



14052 EAST FIRESTONE BOULEVARD 



• BUSINESS 

• EDUCATIONAL 

• PERSONAL 

SANTA FE SPRINGS, CALI FORNIA 90670 



(714) 739-0711 



16K APPLE II $1195.00 

• We are Apple Headquarters. Buy from us and let us help you get the 
most from your Apple. 

• Free software with purchase of Apple. Choose up to $100.00 worth of 
software from over 100 selections in our Apple software catalog. ' 

• Our unique Apple II software catalog gives a short critique on each 
program so that you know what you are buying before you buy. 

• We also have numerous selections of software free with any purchase. 

• We offer service contracts for all equipment we sell. 

• We provide demonstrations and orientation services for schools and 
businesses anywhere in Los Angeles or Orange Counties, California. 
Call for information regarding this free service. 



8K COMMODORE PET . . . $795.00 

•FREE $ 50.00 worth of software of your choice with each pet. 

• Software Over 50 programs now available and still growing. Send 

for our software catalog. 

• In Stock Off the shelf deliveries 

• Service We have an on site service department. 

• Users group now forming 



BLANK CASSETTES 



C-10 BLANK CASSETTES (W/O BOX) FOR MICRO COMPUTING. 
$ 1.00 Ea. Other lengths will be available in the future. 
$ 7.50 for 10 Call or write for quotes on larger quantities. 
$32.50 for 50 Add 10% (minimum $2.00) for shipping and handling. 

16K RAM FOR APPLE II 

• 4116 Chips. 8 per set makes 16K RAM. Just any 41 16 chips will not work 
in the Apple II. 350NS or slower will not work properly. 250NS chips are 
adequate. 200NS chips are preferable. 

• 200NS chips. Tested and guaranteed $ 95.00 per set. 

• Add $ 2.00 for shipping and handling. 




QUANT. 


ITEM 


PRICE 


ABOVE ITEMS ARE NORMAL STOCK ITEMS. DUE TO CIRCUMSTANCES 
BEYONO OUR CONTROL, WE ARE SOMETIMES TEMPORARILY OUT DF STOCK. 
PLEASE CHECK APPROPRIATE BOX BELOW. 








CERTIFIED CHECK, MONEY ORDER, VISA OR MASTER CHARGE ORDERS 
SHIPPEO SAME DAY. NO COD. ALLOW 2 WEEKS FOR PERSONAL CHECK TO 
CLEAR. 








CALIFORNIA RESIDENTS, ADD 6% SALES TAX 




PLEASE BACK ORDER , — , DO NOT BACK ORDER i — i 
IF OUT OF STOCK I I IF OUT OF STOCK I I 


SHIPPING & HANOUNG. 
ADD $10.00 FOR COMPUTER SYSTEM. 




IF USING CREDIT CARD, CHECK BOX AND ENTER CARD NUMBER BELOW. 


TOTAL 




MASTER CHARGE D VISA O 



■% 



USING TINY BASIC TO DEBUG 
MACHINE LANGUAGE PROGRAMS 

Jirri Zuber 
20224 Cohasset No. 16 
Canoga Park, CA 91306 



I just got Tiny BASIC up and running on my KIM-1 and have found 
it to be a valuable enhancement to writing machine (or assembly) 
language programs. The Tiny BASIC USR function allows us to 
access machine language subroutines from within a BASIC 
program. You can pass parameters to and from the BASIC program 
and the machine language subroutine. If you can make an entire 
machine language program appear as a subroutine to Tiny BASIC 
(add a RTS call in the appropriate place) then Tiny BASIC can 
access your entire program with the USR function. A natural 
application of this capability is a debugging program written in 
Tiny BASIC that can completely test a machine language 
subroutine without ever leaving the Tiny BASIC program. The only 
limitation to this is that your machine language program cannot 
reside in the memory area used by Tiny BASIC and you must not 
use the same zero page locations as Tiny BASIC. My program (see 
listing #1) will print out the data in 4 memory locations when a 
predefined set of conditions exist in the machine language 
subroutine. There are 7 user selectable functions in the command 
mode: 



Address 0,2,0,0 or Data A, 2. The program will print a marker every 
50 loops through the machine language subroutine. This can be 
changed to suit your preference by modifying line 295. The 
following example should clarify the functions and use of the 
Debug Program. Listing #2 is a subroutine from a Biorhythm 
Program that I wrote. The subroutine increments 3 memory 
locations that correspond to the physical, emotional, and 
intellectual biorhythm cycle days. Each memory location should 
be reset to day one at the appropriate point. 

Location 0001 = 1 to 23 days (physical) 
Location 0002 = 1 to 28 days (emotional) 
Location 0003 = 1 to 33 days (intellectual) 

Two days in each cycle are considered critical. They are: 

Physical: Day 1 and day 12 
Emotional: Day 1 and day 15 
Intellectual: Day 1 and day 17 



} 







(0) DEFINE SUBROUTINE ADDRESS - This is the starting address 
of the machine language subroutine you want to test. 

(1) DEFINE PRINT ADDRESS - This allows you to define the 
conditions that must exist before data is printed out in the run 
mode. There are 3 options: 

(A) Print every loop through the subroutine. 

(B) Print at a predefined loop interval (use a decimal number). 

(C) Conditional print - Program will only print out when data in 
a predefined address matches the value specified. 

The print mode is initialized at "Print every loop" at the start of 
the program. 



(3) PRESET DATA 
memory location. 



This allows the user to place data in any 



(4) PRINT LIMIT - This number limits the number of times the 
program prints out the 4 addresses when in the run mode. This is 
initialized at 10 in the beginning of the program. Use a decimal 
value for the print limit. 

(5) RUN PROGRAM - This starts the Tiny BASIC program looping 
through and printing out data from the machine language sub- 
routine. 

(6) EXIT PROGRAM - Returns you to Tiny BASIC monitor. 

(7) See COMMAND OPTIONS. 

All command options except 6 return to the command mode after 
execution. If your version of Tiny BASIC does not start at hex 2000 
you must change line 50 to the decimal equivalent of your Tiny 
BASIC starting address. All address and data questions should be 
answered in hex with a comma between each digit. Example: 



Location 0004 is incremented for each cycle that is critical on a 
particular pass through the subroutine. An 02 in this location 
would indicate a double critical day on that particular pass 
through the subroutine. As a subroutine of this type would take 
several hours to test using conventional methods due to the large 
number of variables, the following sample runs from the Tiny 
BASIC machine Debug Program will show hovv complete testing of 
a subroutine can be done in a few minutes. (See samples #1 
through #4). 

Sample #1 The starting address is set to 0200 and the print 
addresses are defined as 0001 through 0004. The printout shows 
that locations 0001 - 0003 are incrementing as they should. 

Sample #2 Memory locations 0001 - 0003 are preset to day 20 
and the print limit is set to 15. The printout shows that the cycles 
are resetting to day 1 at the appropriate time, (days 23, 28, and 
33). 

Sample #3 The print limit is set to 4 and the print mode is set to 
every 23rd loop in order to check the consistency of the sub- 
routine. The printout shows that location 0001 is staving the 
same as it should, (location 0001 is the 23 day physical cycle). 
Note the marker at 50 loops. 

Sample #4 The print mode is set to the conditional mode in 
order to print only when location 0004 is equal to 02 (double 
citical day). The printout shows the subroutine is working 
properly. 

I would like to thank Tom Pittman (author of Tiny BASIC) whose 
programming tricks in the Tiny BASIC User Manual made this 
program possible, I hope the Machine Debug Program ran take the 
sweat out of testing your subroutines' 
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.ISTING #1- 



19 REM TINV BflSIC MACHINE DEBUG PROGRAM 

11 REM BV JIM ZUBER — SEPT 29, 1978 

15 fl=-19 

29 B=-ll 

25 C=-12 

38 D=-13 

35 E=-14 

48 F=-15 

47 REM TINV START flDDRESS(DEC) 

56 S=8192 

54 REM PRESET PRINT LIMIT 

55 6=10 

59 REM PRESET PRINT MODE 

68 H=l 

65 REM ANSWER fiLL ADDRESS AND DATA 

79 REM QUESTIONS WITH fl HEX NUMBER 
75 REM THAT HAS EACH DIGIT SEPERATED 

80 REM BV A COMMA. 

85 REM AT A MINIMUM SET SUB ADDRESS 
90 REM AND 4 DATA ADDRESSES. 

160 PR "COMMAND MODE SELECT ONE" 

102 PR " 0. "DEFINE SUBROUTINE ADDRESS" 

1. DEFINE PRINT ADDRESSES" 

2. DEFINE PRINT MODE- 
S'. PRESET DATA" 

4. PRINT LIMIT" 

5. RUN PROGRAM" 

6. EXIT PROGRAM" 

7. SEE COMMAND OPTIONS" 



182 PR " 

106 PR " 

1(W PR " 

112 PR " 

115 PR " 

118 PR " 

119 PR " 
.121 INPUT 



L 



i,?? 



124 
127 
136 



139 
141 



IF L=0 .GOTO 275 

IF L=l GOTO 148 

IF L.=2 GOTO 187 

IF L=3 GOTO 239 
133 IF L=4 GOTO 266 
136 IF L=5 GOTO 281 

IF L=6 GOTO 1000 

IF L=7 GOTO 102 
142 PR " — COMMAND MODE — " 
145 GOTO 121 

147 REM INPUT 4 ADDRESSES 

148 PR "POSITION #1— "; 
151 GOSUB 8«t 

154 T=N 

157 PR "POSITION 12—"; 

166 GOSUB 860 

163 U=H 

166 PR "POSITION #3--"; 

169 GOSUG 860 

172 V=N 

175 PR "POSITION #4—'; 

178 GfisiiB Ofifi 

181 W=N 



184 
186 
187 
198 
193 
196 
199 
282 
285 
268 
211 
215 
218 
221 
223 
224 
227 
236 
233 
236 
238 
239 
242 
245 
248 
251 
254 
257 
260 
263 
265 
266 
269 
272 
274 
275 
276 
278 
280 
281 
2F:4 

287 
239 
290 
293 
294 
295 
296 
299 
301 
302 
305 
308 



2. DEFINE NUMBER OF LOOPS" 

3. CONDITIONAL PRINT" 



GOTO 142 

REM DEFINE PRINT MODE 

PR "PRINT MODE — SELECT ONE" 

PR H 1. ALL LOOPS" 

PR ' 

PR " 

INPUT H 

IF H=4 GOTO 142 

IF H=2 GOTO 215 

IF H=3 GOTO 224 

GOTO 187 

PR "INPUT LOOP INCREMENT" 

INPUT K 

GOTO 142 

REM CONDITIONAL PRINT MODE 

GOSUB 880 

I=N 

GOSUB 858 

J=N 

GOTO 142 

REM PRESET DATA 

GOSUB 880 

P=N 

GOSUB 856 

Q=N 

V=USR<S+24,P,Q> 

PR "ANV MORE TO PRESET?(1=N 2=V)° 

INPUT V 

IF V=2 GOTO 239 

GOTO 142 

REM SET PRINT LIMIT 

PR "INPUT PRINT LIMIT" 

INPUT G 

GOTO 142 

REM DEFm SU8 START ADDRESS 

GOSUB 806 

0=N 

GOTO 142 

REM RUN PROGRAM 

PR 

PR "LOOP'S "-1-", "-2-", "-3-", "-4-" 

PS: 

X=8 

P=0 

P=P+1 

V=USRCG> 

IF P=P/58+50 THEN PR P 

IF H=l GOTO 314 

IF H=2 GOTO 323 

REM CONDITIONAL PRINT 

V=USR(S+2fcI> 

IF J=V GOSUB 500 

IF X=G GOTO 142 



llf'RO 10 26 
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LISTING #1 CONTINUED- 







311 
313 
314 
317 
320 
322 
323 
325 
327 
349 
356 
355 
366 
378 
375 
466 
461 
462 
403 
404 
405 
406 
467 
468 
469 
416 
411 
412 
413 
414 
415 
416 
417 
418 
413 
426 
421 
422 
423 
424 
425 
426 
427 



GOTO 293 


525 GOSUB 356 


REM PRINT FILL LOOPS 


536 PR " "; 


GOSUB 568 


535 Z=USR(S+28, V) 


IF X=G GOTO 142 


540 GOSUB 356 


GOTO 293 


545 PR H ■; 


REM DEFINED NUMBER OF LOOPS 


556 Z=USR<:S+2& W) 


IF P=P/K*K QOSUB 566 


555 GOSUB 356 


IF X=G GOTO 142 


560 PR 


GOTO 233 


565 X=X+1 


REM SUB TO PRINT 2 HEX DIGITS 


570 RETURN 


M=Z/i6 


880 REM SUB fiDORESSCHEX TO DEC) 


Z=Z-W*16 


862 N=8 


Gosue mm+H 


805 X=i 


GOSUB 460+Z+Z 


887 PR "INPUT fiDDRESS" 


RETURN 


810 INF-UT R 


PR 6; 


815 GOSUB 966 


RETURN 


820 IF X=4 RETURN 


PR 1; 


825 X=X+i 


RETURN 


838 GOTO 816 


PR 2; 


858 REM SUB DflTfKHEX TO DEC) 


RETURN 


852 N=0 


PR 3; 


855 X=l 


RETURN 


857 PR "INPUT DflTfl" 


PR 4; 


860 INPUT R 


RETURN 


865 GOSUB 966 


PR 5; 


87Q IF X=2 RETURN 


RETURN 


875 X=X+1 


PR 6; 


880 GOTO 866 


RETURN 


980 REM HEX TO DECIMAL SUB 


PR 7i 


965 IF R>999 THEN N=N*16 


RETURN 


910 IF R>99 THEN N=N*ife 


PR S.i 


915 IF R>9 THEN N=N*i6 


RETURN 


926 IF R>0 GOTO 998 


PR 9; 


925 IF R<8 THEN R=-R 


RETURN 


936 N=N*i6+R 


PR "fi"i 


935 RETURN 


RETURN 


9% R=R+R/lflS0*1536+R A8fi*9fi+R/1 8*6 


PR "B"; 


995 GOTO 325 


RETURN 


1066 END 



Q 



429 
436 
431 
499 
506 
565 
516 
515 



PR "C"; 

RETURN 

PR "D"; 

RETURN 

FR "E"; 

RETURN 

PR "F"; 

RETURN 

REM SUB TO PRINT 4 ADDRESSES 

PR P, 

2=USR(S+2«, T> 

GOSUS 35m 

PR " "; 



526 Z=USv ( S+2S.. U > 
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LISTING #2 

START ADDRESS 






PHV. . DL 8001 


LABELS 






EOT. . DL 8082 








INT. . DL 8983 








CRIT . DL 0084 




0260 


fl9 00 


LOfl 80 


START 


8202 


85 04 


STfl *CRIT 




0264 


F8 


STAR SED 




0285 


18 


CLC 




8286 


A5 01 


LDfi *PHV. 


INCREMENT PHY 


0268 


C3 23 


CUP 23 




026fi 


F8 07 


BEQ SET1 




020C 


69 01 


ADC 81 




020E 


85 01 


STfl *PHV. 




0218 


4C 17 02 


JMP EMOT 




0213 


fl9 01 


SET1 LDfi 81 




0215 


85 01 


STfi *FW. 




021? 


fi5 02 


EMOT LDfi *£MT. 


INCREMENT EOT 


0219 


C9 28 


CMP 28 




0216 


F8 07 


BEQ SET2 




021D 


69 01 


flOC 81 




021F 


85 02 


STfl *EWT. 




0221 


4C 28 02 


JMP INTL 




0224 


fl9 01 


SET2 LDfi 81 




0226 


85 02 


STfl *EMT. 




022S 


R5 03 


INTL LDfi *INT. 


INCREMENT INT 


022fi 


C9 33 


CMP 33 




022C 


F8 87 


BEQ SET3 




022E 


69 01 


ADC 81 




0236 


85 03 


STfl *INT. 




0232 


4C 39 02 


JMP PCRT 




0235 


A9 01 


SETS LDfi 81 




8237 


85 03 


STfl *INT. 




0239 


fl5 81 


PCRT LDfi *PHV. 


PHV CRITICAL? 


8238 


C9 01 


CMP 81 




823D 


F0 19 


BEQ L0P1 




823F 


C9 12 


CMP 12 




0241 


F6 15 


BEQ L0F1 




0243 


H5 02 


ECRT LDfl *EMT. 


EOT CRITICAL? 


0245 


C3 81 


CMP 81 




9247 


F0 14 


BEQ L0P2 




0249 


C9 15 


CMP 15 




024B 


F8 18 


BEQ L0P2 




024D 


fi5 83 


ICRT LDfl *INT. 


INT CRITICAL? 


024F 


C9 01 


CMP 01 




0251 


Ftf" 8F 


BEQ LCP3 




9253 


C9 17 


CMP 17 




8255 


F0 8B 


BEQ L0P3 




$257 


€8 


EXIT RTS 




1258 


E6 04 


L0P1 INC *CRIT 


INCREMENT CRIT 


025fl 


4C 43 82 


JMP ECRT 




025D 


£6 04 


L0P2 INC *CRIT 




025F 


C 4D 0.'' 


JMP ICRT 




9262 


Eb 04 


L0P3 INC +CRIT 




0264 


4C 57 82 


JMP EXIT 

END. EN 
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SVNBOL TABLE 


PHV. 


8881 


EMT. 


8002 


INT. 


8003 


CRIT 


0884 


STAR 


0234 


SET1 


8213 


EMOT 


8217 


SET2 


0224 


INTL 


0228 


SET3 


0235 


PCRT 


0239 


ECRT 


0243 


ICRT 


824D 


EXIT 


8257 


L0P1 


0258 


L0P2 


825D 


L0P3 


8262 


END. 


0267 
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SAMPLE #1 


SAMPLE #2 

— COMMAND MODE — 
?3 


.RUN 


INPUT ADDRESS 
? 8, 0, 8, 1 


COMMAND MODE SELECT ONE 

8. DEFINE SUBROUTINE RDDRESS 
1 DEFINE PRINT ADDRESSES 

2. DEFINE PRTNT MODE 

3. PRESET DATA 

4. PRINT LIMIT 

5. RUN PROGRAM 

6. EXIT PROGRAM 

7. SEE COMMAND OPTIONS 
? 9 


INPUT DATA 
?2,0 

ANV MORE TO PRESET?C1=N 2=V) 
?2 

INPUT ADDRESS 
? 8/8,8,2 

INPUT DATA 
?2/8 


INPUT ADDRESS 
? 8,2,8,8 


ANV MORE TO PRES£T?C1=N 2=V) 
?2 


— COMMAND MODE — 
? 1 


INPUT ADDRESS 
? 8/0,8,3 


POSITION «1—INPUT ADDRESS 
? 0,8,8,1 


INPUT DATA 
?2,0 



POSITION #2— INPUT ADDRESS 
? 8,0,8,2 

POSITION #3— INPUT ADDRESS 
? 8, 8, 8, 3 

POSITION #4— INPUT ADDRESS 
? 8,8,8,4 

— COMMAND MODE — 
?5 



ANV MORE TO PRESET?(1=N 2=V) 
?1 

— COMMAND MODE — 
? 4 

INPUT PRINT LIMIT 
?15 

— COMMAND MODE— 
?5 



LOOP 



-1- 



-2- 



-3- 



-4- 



10 



1 


82 


82 


12 


88 


2 


83 


83 


13 


88 


3 


84 


84 


14 


88 


4 


85 


85 


15 


88 


5 


86 


86 


IS 


88 


6 


87 


07 


17 


81 


7 


88 


88 


18 


88 


8 


89 


89 


19 


88 


9 


10 


18 


28 


86 


18 


11 


11 


21 


88 



LOOP 

1 

2 

3 

4 

5 

6 

7 

8 

9 

18 

11 

12 

13 

14 

15 



-1- 

21 
22 
23 
01 
02 
03 
04 
05 
06 
07 
88 
09 
18 
11 
12 



-2- 

21 
22 
23 
24 
25 
26 
27 
28 
81 
82 
83 
84 
85 
86 
Q? 



-3- 

21 
22 
23 
24 
25 
26 
27 
28 
29 
38 
31 
32 
33 
81 
82 



-4- 
08 
80 
00 
81 

00 

88 
88 
80 
81 
88 
08 
88 
88 
81 
81 
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SAMPLE #3- 

— COMMflND MODE — 
? 4 



— SAMPLE #4- 

— COMMAND MODE — 



? 2 



INPUT PRINT LIMIT 
? 4 

— COMMAND MODE — 
? 2 

PRINT MODE — SELECT ONE 

1. ALL LOOPS 

2. DEFINE NUMBER OF LOOPS 

3. CONDITIONAL PRINT 
? 2 

INPUT LOOP INCREMENT 
? 23 

— COMMAND MODE — 
? 5 



LOOP 


-i- 


-2- 


-3- 


-4- 


23 


12 


82 


25 


81 


46 


12 


25 


15 


01 


50 










69 


12 


28 


85 


81 


92 


12 


15 


28 


02 



PRINT MODE — SELECT ONE 
1 ALL LOOPS 
2. DEFINE NUMBER OF LOOPS 



3. 


CONDITIONAL PRINT 






n ■» 










f O 










INPUT ADDRESS 








? 0,8,8,4 








INPUT DATA 








? 8,2 








COMMAND MODE- 


— 






? 5 










LOOP 


-1- 


-2- 


-3- 


-4- 


58 










100 










138 


12 


13 


01 


02 


150 










154 


85 


01 


17 


82 


196 


81 


15 


26 


02 


200 










258 










253 


12 


16 


17 


82 



— COMMAND MODE — 



EPROM PROGRAMMER 




soso, 



Software avaMfc tar F-l, 6800, 
8085, Z-80, 6502, KIM-1, 1802. 

The EP-2A-79 will progrom the 2704, 2708, 
TMS 2708, 2758, 2716, TMS 2516, TMS 2716, 
TMS 2532, and 2732. PROM type is selected by 
a personality module which plugs into the front 
of the programmer. Power requirements are 1 1 5 
VAC, 50/60 HZ at 1 5 watts. It is supplied with a 
36-inch ribbon cable (14 pin plus) for connecting 
to microcomputer. Requires 1 14 I/O ports. 
Assembled and tested $145, Plus $15-35 for 
each personality module. Specify software. 

OPTIMAL TECHNOLOGY, INC. 

Slue Wood 127, Eariysvllie, Va. 22936 
Hmm 804-973-5482 



Who regularly publishes more info on 
APPLEs, PETs, K1M<>. SYMs, AIMs. and 
other 6502 based sywems, products and 

programs than 



kilobaud BOTE 



liutcnraLC auc 

creative compufciRg 



COMBINED? 



(ja^^^l) . 



lhai's 
who 



the full size magazine devoted to 6302 
information. Now published monthly $12. OX) 
per year in USA. 

Now you can get all of MICRO by buying 
"The BEST of MICRO Volume I " for $7.00 
(includes shipping) and starting your 
subscription with issue HI . 

PO Box 3, S. Chelmsford, MA. UI824 
617/256-3649 



MICRO 10: W 



MARCH 



ASK THE DOCTOR - PART II 
AN ASK EPROM PROGRAMMER 

Robert M. Tripp, Ph. D. 
TheCOMPUTERIST, Inc. 

P.O. Box 3 
So. Chelmsford, MA 01824 







V \ 



%J 



One of the most frequently asked questions about the ASK 
(AIM/SYM/KIM) family of microcomputers is: "Can a program that 
was written for one of the micros run on either of the others?" The 
answer is normally no. While the three micros share a lot - common 
expansion bus, similar application connector, KIM tape format ... 
they do have minor differences in their use of page zero and page 
one, some greater differences in their memory and I/O allocations, 
and large differences in their monitor subroutines. Therefore, in 
general, the answer to the question is: "No, a program written to run 
on one will not run on the others without modification." This answer 
may lead the creative programmer to wonder what it would take to 
write programs which would run on all three machines, without 
requiring customization for each. What problems would be encoun- 
tered? What techniques could be used to reduce the problems? 
What about...? 

I faced the three-machine problem for a practical reason, the 
MEMORY PLUS™ board that my company makes is hardware com- 
patible on the three systems. Part of the package is a cassette tape 
with a Memory Test program and an EPROM Programming program. 
It would be awkward to have to provide three sets of programs on 
the tape and expensive to have to print up three different sets of 
program listings. Would it be feasible to write a single program? The 
answer turned out to be: "Yes". The program for the EPROM 
Programmer is presented here in its entirity. 

There are two major types of compatibility problems. The first is 
that the three monitors each have a different set of support 
subroutines. Sometimes they may have identical subroutines, but 
usually the subroutines are not identical, and often are not even 
close! In this particular program, this was not a problem since the 
program did not use any monitor subroutines. The second major 
problem is that various important locations in memory or in memory 
mapped I/O are different on the three systems. Examples are the re- 
entry address for returning to the monitor at the end of the program, 
the location of the interrupt vector, and the address of the 
peripheral I/O port. !n this program all three of these address 
problems were encountered. The solution for the addressing 
problem is fairly simple and will handle all three addressing 
problems - if you understand the Indirect Indexed mode of ad- 
dressing on the 6502. If you are totally unfamiliar with this ad- 
dressing mode, you should consult your programming manual at this 
point and find out about it. If you are familiar with it, then this 
review may be useful. 

The Indirect Indexed addressing mode on the 6502 works by having 
a base pointer in a pair of page zero locations which is used to point 
to some other location in memory. The contents of the page zero 
locations are combined with current contents of the Y register to 
form the final address for an instruction. The assembler form of the 
instruction is LDA (POINT), V in the standard MOS Technology syn- 
tax or LDAIY POINT in the MICRO-ADE syntax which is generally 
used in MICRO. In either case, what results is a form of addressing in 
which the page zero pointer forms the base address and the contents 
of the Y register allow this address to be modified within a range of 



00 to FF. If the pointer value was 2800, then the effective range of 
the indirect indexed instruction would be 2800 (with Y = 00) to 28FF 
(with Y = FF). The page zero pointer is set up in two consecutive 
bytes, with the low byte of the address first followed by the high 
byte of the address. In our example, if POINT was the page zero ad- 
dress 0006, then location 0006 would contain 00 (the low byte of the 
indirect address) and 0007 would contain 28 (the high byte of the in- 
direct address). Since the only problem we have to solve for the 
EPROM Programmer is one of different addresses for the three 
systems, the problem reduces to three steps: 

1 . Determine which system we are runnng on: AIM, SYM or K IM. 

2. Set up appropriate indirect address pointers. 

3. Access the variable addresses via the indirect address pointers 
using the Indirect Indexed addressing mode. 

Now Lef 5 examine the program in a little detail to see how it ac- 
tually accomplishes all of this. 

The Program 

The program is assembled to run entirely on page zero. It uses a 
6522 VIA chip which is located on the MEMORY PLUS board for a 
lot of its I/O and timing. The registers within the VIA that are used 
are listed under VIA REGISTER OFFSETS. These offsets will be used 
within the program to load the Y register prior to making an Indirect 
Indexed instruction call so that the appropriate VIA internal register 
will be accessed. The first six locations in page zero are used by the 
program for parameters to control where the data to be placed into 
the EPROM starts in memory, ends in memory, and where it is to be 
placed in the EPROM. This information is filled in by the operator 
before running the program. Location "VIA" is an indirect pointer to 
the MEMORY PLUS VIA chip. This normally will be at location 6200 
and could have been addressed directly by the program. But, since it 
could be in another address, it was decided to handle it through the 
Indirect Indexed mode. The "JMPMON" location contains the Op- 
code for a JMP. This is used in conjunction with the contents of the 
next two bytes, "MONTOR", to re-enter the system monitor at the 
end of the program or when an error is encountered. The actual 
monitor re-entry address value is filled in by the program. It appears 
as 0000 in the listing, but will be altered early in the program as we 
shall see below. The "INTVEC" is an indirect pointer to the IRQ in- 
terrupt vector which is used as part of the timing service of the 
program. This will be properly filled in at the beginning of the 
program from a table. "PBDD" and "PBD" are pointers to the Port B 
Data Direction and Port B Data registers. These will also be filled in 
from a table at the start of the program and will be used in Indirect 
Indexed instructions. 

The program begins execution at location 0011, after the user has 
used his monitor to fill in the appropriate values in the parameters in 
locations 0000 to 0005. The first three instructions clear all of the 
status bits by pushing a 00 onto the stack from A and popping it into 
the status register. 
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Locations 0015 through 0027 determine which microcomputer the 
program is running on by testing the contents of a ROM location. 
The contents of location FFFD is specific to each machine. This is 
the high order byte of the Reset Interrupt Vector. For the SYM this 
will be an 8B; for the AIM an E0, and for the KIM a 1C. The X register 
is loaded with a value which is the start of a table of values which 
will be moved into locations 0009 through 0010 to fill in the MON- 
TOR, INTVEC, PBDD, and PBD pointers discussed above. The in- 
struction at 0028 is unique to the SYM and is required to permit the 
program to access some of the SYM's protected memory locations. 
It is not executed by the program for KIM or AIM. 

Locations 002B through 003S move the appropriate table from its 
original location at the end of the program into the working indirect 
area. The AIM table starts at O0DO; the KIM table at 00D8; the SYM 
atOOEO. 

By the time we reach ENTER at location 0036, two important things 
have been done. First, we have determined which machine we are 
running on. Second, using this information, we have set up our in- 
direct pointers which will be used by the remainder of the program 
to address the machine specific addresses. At ENTER we again set the 
status bits to zero. This is done so that a user with a different com- 
puter could still use this program. He would do this by manually set- 
ting up the pointers in 0009 through 0010 and then starting at 0036 - 
ENTER. 

Locations 003A through 0044 fill in the system interrupt vector to 
point to the interrupt servicing routine of the program which starts 
atO0C5. This is a good place to examine the workings of the Indirect 
Indexed addressing. The Y register is set to 00. The A register is 
loaded with the low byte of the interrupt service routine address. 
This value will be C5 since the routine starts at 00C5. This is then 
stored in the system interrupt vector which is addressed by adding 
the contents of Y (00) to the address contained in INTVEC. For the 
AIM INTVEC will have been set to A400; for the KIM INTVEC will be 
17FE; for the SYM A67E. So the effective address will be A400 for the 
AIM (A400 + 00= A400), 17FE for the KIM and A67E for the SYM. 
The A register is then loaded with the high byte of the interrupt ser- 
vice routine address, 00 since the routine is in page zero. The Y 
register is incremented so that it now contains a 01. When A is now 
stored with Indirect Indexed mode through INTVEC, it goes into 
A401 on the AIM(A400 + 01 = A401), 17FF on the KIM and A67F on 
the SYM. If you are not clear at this point as to how this works, then 
STOP. The rest of this article will make no sense until you under- 
stand the basics of the Indirect Indexed mode. Re-read the article to 
this point, consult your manual, ask a friend. 

Using the same techniques of setting Y to an offset value, loading A 
with the value to use, and storing in the Indirect Indexed mode, the 
VIA is initialized. 

The instructions from 005D through 0078 set up the VIA for output. 
One additional trick is used here. While we normally think of the Y 
register in connection with the Indirect Indexed mode of addressing, 
the X register can also be used for this mode of addressing - but only 
under one special condition. That condition is when the index value 
is 00. In this condition, the Indirect Indexed mode and the Indexed 
Indirect mode both collapse to the simple Indirect mode. There are 
several places in which we take advantage of this fact so that the X 
register can be set to zero once and used several times for ad- 
dressing. This section of code now gets the data from the indirect 
pointers that the operator set into locations 0000 through 0005 and 
outputs the data to the EPROM Programmer. 



Locations 0079 through 008A first set a timer in the VIA going for 
the 50 millisecond period which is required to program one location 
on the EPROM. Then the Peripheral Control Register on the VIA is 
set to enable the programming pulse to the EPROM. Again, Indirect 
Indexed addressing is used so that the VIA does not have to be at 
6200. If it is in any other address, the operator simply sets the poin- 
ter at VIA (0006, 0007) before starting the program. Everything else is 
automatic. 

Locations 008B to 008E form a loop which waits until an interrupt 
has occurred and been serviced. If you look down at the interrupt 
routine starting at 00C5 you will see that Y is changed so that it is no 
longer equal to OC. At this point the WAIT test will fail and the 
program will move on to VERIFY. 



Locations 008F through 0OC4 perform a series of tests and pointer 
updates. When the program reaches the end of the data, or if it 
detects an error, it makes a JSR to JMPMON. JMPMON then jumps 
to a reentry point for the appropriate monitor as set up from the 
table at the beginning of the program. The reason for making the )SR 
is to save the address of where we are coming from to be displayed 
by the monitor as an indication of why we exited: successful com- 
pletion or one of the three errors. The JMPMON permits us to go to 
the correct monitor. While it would have been possible to have the 
initialization code change each of the four )SR's to )SR directly to 
the appropriate monitor, this obviously would have entailed more 
code and would not have any benefit. 

The re-entry to the monitor is the only place where this code makes 
use of the system monitor, and wouldn't you know it - each monitor 
handles the re-entry slightly differently. They each display an ad- 
dress which is related to the )SR from which it came, but each one 
displays a slightly different address. On the successful completion 
return which is at 00B7, the AIM displays 00B8, the KIM displays 
00B9, and the SYM displays 0OBA. It would have been possible to 
write some additional code to take care of the address before retur- 
ning to the monitor, but this did not seem to be a serious enough 
problem to warrant the effort. But it does point out the problems 
one can encounter in using the "similar-but-different" monitor 
subroutines. 

Locations 00C5 through 00CF are the interrupt service. When the in- 
terrupt occurs, it is vectored here due to the setup that took place 
earlier in the program. The VIA is changed from programming mode 
to verify mode and the interrupt is cleared. In the process the Y 
register is changed so that the WAIT test will permit the program to 
recognize that an interrupt has occurred and to continue 

The ATABLE, KTABLE and STABLE are the pointer values for the 
AIM, KIM and SYM respectively. At the start of the program they are 
moved into a standard set of locations starting at 0009 (MONTOR). 

Next month, ASK the Doctor will present the hardware that is 
required to build an EPROM Programmer based on this program. 
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0000 


CO 




OOD1 


00 




C002 


00 




0C03 


00 




C004 


00 




0005 


00 




0G06 


00 




0007 


62 




0008 


AC 




00C9 


00 




OOOA 


00 




CCOB 


CO 




OOOC 


00 




OOOD 


OC 




OOOE 


00 




OOOF 


00 




0010 


CO 




0011 


A9 


OC 


0013 


48 




0014 


28 




CC15 


A2 


FO 


0017 


AD 


FD FF 


C01A 


C9 


8B 


001C 


FO 


OA 


001E 


A2 


DO 


G020 


C9 


EC 


0022 


FC 


07 


0024 


A2 


DS 


0026 


DC 


03 


C02E 


2C 


86 EB 


00 2 B 


86 


3C 


CG2D 


A 2 


07 


002F 


B5 


00 


0031 


95 


09 


0033 


CA 




0034 


10 


F9 
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PROM PROGRAMMER ID FEBRUARY 1979 
PRCM CRG $0000 

ACCESS * $8B86 SYM-1 ACCESS ENTRY 

VIA REGISTER OFFSETS 



ORB 


* 


fcooo 


OUTPUT REGISTER B 


ORA 


* 


$0001 


OUTPUT REGISTER A 


DDRB 


* 


$0002 


DATA DIRECTION REGISTER B 


DDRA 


* 


$0003 


DATA DIRECTION REGISTER A 


TTWOL 


* 


$0008 


TIMER TWO LOW 


TTWOH 


* 


$0009 


TIMER TWO HIGH 


PCR 


* 


$000C 


PERIPHERAL CONTROL REGISTER 


IFR 


* 


$OODD 


INTERRUPT FLAG- REGISTER 


IER 


* 


$O0CE 


INTERRUPT ENABLE REGISTER 


SAL 


_ 


$00 


STARTING ADDRESS LOW 


SAH 


z 


$00 


STARTING ADDRESS HIGH 


PRMLOW 


= 


$00 


EPROM LOW ADDRESS 


PRMHGH 


z 


$00 


EPRDM HIGH ADDRESS 


EAL 


= 


$00 


END ADDRESS LCW 


EAH 


= 


$00 


END ADDRESS HIGH 


VIA 


r 


$00 


POINTER TO VIA 




z: 


$62 


NORMALLY AT 6200 


JMPMON 


= 


$4C 


3UMP TO MONITOR 


MONTOR 


- 


$00 


POINTER TO SYSTEM MONITOR 




x 


$0C 


FCR RETURN FROM PROGRAMMER 


INTVEC 


= 


$00 


POINTER TO INTERRUPT VECTCR 




= 


$00 




PBDD 


r 


$00 


PORT B DATA DIRECTION 




= 


$00 




PBD 


= 


$00 


PORT B DATA 




= 


$00 




BEGIN 


LDAIM 

PHA 

PLP 


$00 


CLEAR ALL STATUS FLAGS 




LDXIM 


STABLE 


ASSUME SYM 




LDA 


$FFFD 


TEST HIGH BYTE OF INTERRUPT 




CMPIM 


$EB 


= 8B FCR SYM-1 




BEQ 


SYM 






LDXIM 


ATABLE 


ASSUME AIM 65 




CMPIM 


$EC 


= EC FCR AIM 65 




BED 


MOVE 


IT IS THE AIM 


KIM 


LDXIM 


K TABLE 


ASSUME KIM 




BNE 


MOVE 




SYM 


3SR 


ACCESS 


SYM RECUIRES ACCESS 



MOVE STXZ TABLE +01 SETUP POINTER 

LDXIM $07 MOVE 8 BYTES 
TABLE LDAX $00 REPLACED BY TABLE 

STAX MCNTCR MOVE TO MONTOR TABLE 

DEX 

BPL TABLE MOVE UNTIL X = FF 
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GC36 


A9 00 




CC38 


48 




0039 


28 




D03A 


AO 00 




G03C 


A9 C5 




003E 


91 OB 




0040 


A9 00 




0042 


08 




0043 


91 OE 




0045 


A9 EC 




0047 


AO OC 




0049 


91 06 




004B 


AO OE 




004D 


A9 7F 




004F 


91 06 




0051 


AO OD 




0053 


A9 FF 




0055 


91 06 




0057 


AO OE 




0059 


A9 AO 




0C5B 


91 06 




005D 


A2 CC 




005F 


A9 FF 




0061 


AO 02 




0063 


91 06 




0065 


AO 03 




0067 


91 C6 




0069 


61 OD 




006B 


A5 02 




0C6D 


81 06 




006F 


A5 03 




0071 


61 OF 




0073 


Al 00 




G075 


AO 01 




0077 


91 06 




0079 


A9 50 




007B 


AO oe 




007D 


91 06 




007F 


A5 C3 




0081 


AC 09 




0083 


91 06 




C085 


A9 CE 




0087 


AC OC 




0089 


91 06 




GC8B 


CO OC 




008D 


FC FC 




0C8F 


A9 00 




0091 


AO 03 




0093 


91 06 




0095 


AC 01 




G097 


Bl 06 
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ENTER 



NEXT 



WAIT 



LDAIM 

PHA 

PLP 

LDYIM 

LDAIM 

STAIY 

LDAIM 

IMY 

STAIY 

LDAIM 

LDYIM 

STAIY 

LDYIM 

LDAIM 

STAIY 

LDYIM 

LDAIM 

STAIY 

LDYIM 

LDAIM 

STAIY 

LDXIM 

LDAIM 

LDYIM 

STAIY 

LDYIM 

STAIY 

STAIX 

LDA 

STAIX 

LDA 

STAIX 

LDAIX 

LDYIM 

STAIY 



$00 



$00 

INTRPT 
INTVEC 
INTRPT 

INTVEC 

$EC 

PCR 

VIA 

IER 

$7F 

VIA 

IFR 

$FF 

VIA 

IER 

$A0 

VIA 



CLEAR ALL STATUS FLAGS 



ENTRY IF TABLE PRESET 
GET INTERRUPT POINTER 
SETUP IN TABLE 

/ 

BLIMP POINTER 

SETUP VIA VALUES 



DISABLE ALL INTERRUPTS 



CLEAR INTERRUPT PENDING 



ENABLE TIMER TWO 



INir X REGISTER 
SET DATA DIRECTION 



$00 

$FF 

DDRB 

VIA 

DDR A 

VIA 

PBDD 

PRMLOW OUTPUT NEXT ADDRESS 

via lcw e eirs 

PRMHGH 

PBD 

SAL 

CRA 

VIA 



BITS 8, 9, 10 
GET DATA BYTE 

OUTPUT VIA GRA 



TIMER LDAIM $50 SETUP 50 MILLISECOND TIMER 



LDYIM TTWOL 
STAIY VIA 
LDAIM $C3 
LDYIM TTWCH 
STAIY VIA 
LDAIM $CE 
LDYIM PCR 
STAIY VIA 



VERIFY 



CPYIM 
BEG 

LDAIM 
LDYIM 
STAIY 
LDYIM 
LDAIY 



PCR 

WAIT 

$00 
DDR A 
VIA 
CRA 
VIA 



OUTPUT TO TIMER TWO LOW 
HIGH BYTE OF TIMER 

OUTPUT TO TIMER TWO HIGH 
PROGRAM HIGH, PROGRAM MGDE 



TEST FOR INTERRUPT SERVICED 
ELSE, WAN FOR IT 

VERIFY PROGRAMMING 
SET GRA FOR INPUT 

SETUP POINTER 
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CDS9 


CI 


00 




CMPIX 


SAL 


COMPARE ORIGINAL DATA 






C09B 


FO 


03 




BEO 


OKAY 


GOOD IF MATCH 






D09D 


20 


oe OC 




3SR 


JMPMCN 


EXIT ON ERROR 






OOAC 


E6 


00 


OKAY 


INC 


SAL 


BUMP DATA POINTER 






00A2 


DO 


07 




BNE 


TEST 


BRANCH IF NOT ZERO 






D0A4 


E6 


01 




INC 


SAH 


BUMP HIGH DATA POINTER 






D0A6 


DO 


03 




BNE 


TEST 


BRANCH IF NOT ZERO 






COAe 


20 


08 00 




JSR 


CJMPMCN 


EXIT ON ERROR 






OOAB 


A5 


05 


TEST 


LDA 


EAH 


TEST ALL DONE 






OOAD 


C5 


01 




CMP 


SAH 


BY COMPARING POINTERS 






OOAF 


DO 


09 




ENE 


MORE 








C0B1 


A5 


04 




LDA 


EAL 








00B3- 


C5 


00 




CMP 


SAL 








C0B5 


DO 


03 




BNE 


MORE 








0CB7 


20 


oe oo 




JSR 


JMPMON 


DONE. 






OOBA 


E6 


02 


MORE 


INC 


PRMLCW 


BUMP PROM POINTERS 






DOBC 


DO 


9F 




BNE 


NEXT 


READY IF NOT ZERO 






COBE 


E6 


G3 




INC 


PRMHGH 


BUMP HIGH POINTER 






COCO 


DO 


9B 




BNE 


NEXT 


OKAY IF NOT ZERO 






C0C2 


20 


08 00 




3SR 


JMPMCN 


EXIT ON ERROR 






DOC 5 


A9 


EC 


INTRPT 


LDAIM 


$EC 


RESET PROGRAM LOW, VERIFY MODE 






00C7 


91 


06 




STAIY 


VIA 








CCC9 


AO 


OD 




LDYIM 


IFR 


SETUP TG CLEAR INTERRUPT 






OOCB 


Bl 


06 




LDAIY 


VIA 


READ AND WRITE TO CLEAR 






OCCD 


91 


06 




STAIY 


VIA 


INTERRUPT VIA SNEAKY TRICK 






OOCF 


AO 






RTI 




RETURN FROM INTERRUPT 






OCDO 


6D 




ATAELE 


= 


$6D 


AIM 65 MONITOR ENTRY 






CCD1 


El 






r 


$E1 


TO DISPLAY PC COUNTER 






ODD 2 


CC 






r 


$00 


IRC INTERRUPT VECTOR 






OOD3 


A4 






r 


$A4 








C0D4 


00 






= 


$00 


PBDD 






00D5 


AO 






= 


$A0 








0OD6 


02 






r 


$02 


PBD 






00D7 


AC 






= 


$A0 








ODD 8 


C5 




K TABLE 


= 


$05 


KIM MONITOR ENTRY 






0CD9 


1C 






= 


$1C 








OODA 


FE 






~ 


$FE 


IRP INTERRUPT POINTER 






OODB 


17 






= 


$17 








OODC 


03 






= 


$03 


PBDD 






OODD 


17 






= 


$17 








OODE 


02 






- 


$02 


PBD 






OCDF 


17 






- 


$17 








OOEO 


35 




STABLE 


- 


$35 


SYM ENTRY POINT 






GCE1 


80 






= 


$80 








00E2 


7E 






— 


$7E 


IRQ INTERRUPT POINTER 






0CE3 


A6 






- 


$A6 








C0E4 


00 






- 


$00 


PBDD 






CCE5 


AO 






= 


$A0 








OCE6 


02 






= 


$C2 


PEC 






C0E7 


AC 






= 


$A0 
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PERFECT AIM 




ATTRACTIVE FUNCTIONAL PACKAGING 
FOR YOUR AIM-65 MICROCOMPUTER 

• Professional Appearance 

• Striking Grey and Black 
Color Combination 

• Protects Vital Components 



ENGINEERED SPECIFICALLY FOR 
THE ROCKWELL AIM-65 

• All Switches Accessible 

• Integral Reset Button 
Actuator 

• Easy Paper Tape Replacement 

EASILY ASSEMBLED 

• Absolutely No Alteration 
of AIM-65 Required 

• All Fasteners Provided 

• Goes Together in Minutes 



MADE OF HIGH IMPACT STRENGTH 
THERMOFORMED PLASTIC 

• Kydex 100* 

• Durable 

• Molded-ln Color 

• Non-Conductive 

AVAILABLE FROM STOCK 

• Allow Three to Four Weeks 
for Processing and Delivery 

• No COD's Please 

• Dealer Inquiries Invited 



TO ORDER: 1. Fill in this Coupon (Print or Type Please) 
2. Attach Check or Money Order and Mail to: 



NAME __ 
STREET 



CITY_ 
STATE. 



ZIP- 



SAE1-1(S) 



Please Ship Prepaid _ 

@ $43.50 each 
California Residents Please Pay 

$46.33 (Includes Sales Tax) 



enclosures 
group 

753 bush street 

san francisco, California 94108 



"TM Rohm & Haas 



Patent Applied For 



"THANKS FOR THE MEMORIES" 
A PET MACHINE LANGUAGE MEMORY TEST 



Harvey B. Herman 

Chemistry Department 

University of North Carolina at Greensboro 

Greensboro, North Carolina 27412 











Most people have surely heard the old Bob Hope theme song, 
"Thanks for the Memories." Whenever I hear it, I remind myself 
how much the explosion in personal computing is due to 
inexpensive memory chips. Several years ago I paid about $64.00 
for a 4x16 (64 bits) static RAM by Intel. Today a 1x1024- static 
memory costs less than $2.00 - quite a hefty reduction in the per 
bit price. 

That's the good news. The bad news is that all electronic parts 
occassionally fail and failures need to be diagnosed and repaired. 
The cheaper memory becomes the more we add and the harder 
and more time consuming it becomes to identify failed 
components. Diagnostic programs are one answer to this problem. 
Recently MICRO (7:25, Oct-Nov, 1978) published a PET memory 
test program written in BASIC. Execution time to test even about 
200 bytes was quite long - about 1000 seconds. Clearly, a much 
faster test is necessary for even the smallest PET computers. If 
external memory is added the need for a much faster test becomes 
even more urgent. 

An obvious way to increase the speed of a program is to write it in 
machine language. BASIC, a higher level of language, is 
notoriously slow especially when it must interpret each statement 
on every encounter. Writing faster machine language programs is 
facilitated with the help of a monitor program. PET owners have 
finally been given a free monitor program as part of their original 
purchase. This program has some nice features but the 
documentation is minimal. (How many times have we heard that 
song.) Important locations and subroutines are either not 
described at all or described sketchally so the program's usefulness 
to the average user is impaired. 

However, not to worry. I have been experimenting with the 
monitor program by a combination of disassembly and trial and 
error have identified some of the missing links. You might guess 
from the title of this article that the purpose is to describe a fast 
machine language memory test. That is correct, but the other 
unspoken and possibly more important purpose is to teach the 
reader how better to use Commodore's machine language monitor 
program. 

Table 1 summarizes important locations in Commodore's monitor. 
It is an expanded version of the table in their manual. For readers 
with access to the PET Gazette's LOMON program I have also 
included locations in that monitor which, incidentally, includes a 
disassembly in the latest version. 

A large variety of machine language programs, including memory 
test programs, have appeared for other 6502 based systems. Jim 
Butterfield in "The First Book of KIM" (pp. 122-123) described a 
very fast machine language memory test program using a newly 
developed algorithm. I picked this particular KIM program for my 
first try at a PET translation program. Other programs developed 
for KIM (except when specifically hardware dependent) can be 
similarly translated. Our PETs will be more powerful than ever 
before as we can take already developed machine language 
software (the hard part), translate the programs for the PET and 



poke them into memory with the monitor (the easy part). 

An inspection of the original KIM memory test program reveals 
some obvious PET incompatabilities. The KIM program originates 
at location zero and uses several KIM-specific locations (e.g., 1C4F 
as an exit to the KIM monitor). As a first pass we must relocate the 
program, change external jumps and substitute other page 
locations. Table 2 shows the changes I made and gives some of my 
reasoning. Some decisions are self evident. For example, the 
second cassette buffer (starting at 033A) is a common place to 
store small PET programs as long as a second cassette is not being 
used. Other changes take advantage of specific features of the PET 
monitor. For example, the program counter (actually locations 22 
and 23 as LOW and HI) is printed out after an exit to the monitor at 
location 0447. While the KIM monitor works similarly, the exit 
point and page zero locations printed are different and must be 
converted. 

The translated program is executed using the CO command with a 
specified address (G 033A). After running the program several 
times, I became convinced it could be improved. Modifying a well 
documented program (as was the original) is, of course, much 
easier than writing one in the first place. The following changes 
were made: 

1. Repeat the program continually until a key is pressed. 
Execution is very fast and one pass is not an adquate test. 

2. Output an asterisk after each pass. It is nice to know the 
program is doing something. 

3. Take the processor out of decimal mode, or hex arithmetic 
will not be done properly. 

4. Input the beginning and ending page locations as a conven- 
ience in the GO step. 

The last two modifications were easy to do before beginning 
execution. However, I occassionally forgot and felt it was better to 
insure it was done properly rather than to take a chance that the 
monitor had to be reloaded or BASIC restarted. 

This version of the memory test program is also run with the GO 
command, with a specified address. The beginning and ending 
page location, separated by commas, are typed after the address 
(C 033A OA,1F). The program cycles until a faulty memory 
location is found which is printed as if it was the program counter 
or until any key is pressed. As advertised it is very fast a few second 
per pass for an 8 K PET (testing pages OA to 1F). A continuing 
outpouring of asterisks is very comforting. 

My colleagues and I have found bad (or slow) memory chips with 
the original or modified test program on both KIM and PET 
computers. Happily, this does not happen very often; my hope is it 
won't happen to you. But if it does you will be prepared if you get 
this program running ahead of time. Good luck! 
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PET MEMORY TEST 







BY HARVEY B. 


HERMAN 






FEBRUARY 1979 








ORG 


$033 A 






BEGIN 


* 


$0023 






END 


* 


$0024 






POINTL 


* 


$0019 






POINTH 


* 


$001A 






FLAG 


* 


$001B 






FLIP 


# 


$001C 






MOD 


* 


$0C1D 






PRINT 


# 


$FFD2 






GET 


* 


$FFE4 






INPUT 


* 


$FFCF 






EXIT 


* 


$0447 






ERROR 


# 


$04 9B 






GTBYT 


* 


$0656 


033A D8 




START 


CLD 




033B 20 


CF FF 




JSR 


INPUT 


033E C9 


20 




CMPIM 


$2C 


0340 FO 


03 




BEQ. 


ABLE 


0342 4C 


5B 04 




JMP 


ERROR 


0345 20 


56 06 


ABLE 


JSR 


GTBYT 


0348 85 


23 




STA 


BEGIN 


03 4A 20 


CF FF 




OSR 


INPUT 


034D C9 


2C 




CMPIM $2C 


034F FO 


03 




BEQ 


BAKER 


0351 4C 


9B 04 




JMP 


ERROR 


0354 20 


56 06 


BAKER 


JSR 


GTBYT 


0357 85 


24 




STA 


END 


0359 A9 


00 


LOOP 


LDAIM 


$00 


035B A8 






TAY 




035C 85 


19 




STA 


POINTL 


C35E e5 


IB 


BIGLP 


STA 


FLAG 


0360 A2 


02 




LDXIM 


$02 


0362 86 


ID 




STX 


MOD 


0364 A5 


23 


PASS 


LDA 


BEGIN 


0366 85 


1A 




STA 


POINTH 


0368 A6 


24 




LDX 


END 


C36A A5 


IB 




LDA 


FLAG 


036C 49 


FF 




EORIM 


$FF 


03 6E 85 


1C 




STA 


FLIP 


0370 91 


19 


CLEAR 


STAIY 


POINTL 


0372 ce 






INY 




0373 DO 


FB 




BNE 


CLEAR 


0375 E6 


1A 




INC 


POINTH 


0377 E4 


1A 




CPX 


POINTH 


C379 BO F5 




BCS 


CLEAR 


037B A6 


ID 




LDX 


MOD 


037D A5 


23 




LDA 


BEGIN 


03 7F e5 


1A 




STA 


PCINTH 



SPACE CHARACTER? 



COMMA ? 
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GTBYT 




C33A 




C33E 




033B - 


0358 


0359 - 


C3BE 


C3BF - 


03CB 



C381 


A5 


IB 




FILL 


LDA 


FLAG 




0383 


CA 






TOP 


DEX 






03 84 


10 


04 






BPL 


SKIP 




0386 


A2 


02 






LDXIM $02 




0388 


91 


19 






STAIY 


POINTL 




03 8A 


C8 






SKIP 


INY 






03 8B 


DO 


F6 






BNE 


TOP 




03 8D 


E6 


1A 






INC 


POINTH 




03 8F 


A5 


24 






LDA 


END 




0391 


C5 


1A 






CMP 


POINTH 




0393 


BO 


EC 






BCS 


FILL 




0395 


A5 


23 






LDA 


BEGIN 




0397 


85 


1A 






STA 


POINTH 




0399 


A6 


ID 






LDX 


MOD 




03 9B 


A5 


1C 




POP 


LDA 


FLIP 




03 9D 


CA 








DEX 






03 9E 


10 


04 






BPL 


SLIP 




03A0 


A2 


02 






LDXIM 


$02 




03A2 


A5 


IB 






LDA 


FLAG 




03A4 


Dl 


19 




SLIP 


CMPIY 


POINTL 




C3A6 


DO 


24 






BNE 


OUT 




03A8 


ce 








INY 






03A9 


DC 


FO 






BNE 


POP 




C3AB 


E6 


1A 






INC 


POINTH 




03AD 


A5 


24 






LDA 


END 




03AF 


C5 


1A 






CMP 


POINTH 




03B1 


BO 


E8 






BCS 


POP 




03B3 


C6 


ID 






DEC 


MOD 




03B5 


10 


AD 






BPL 


PASS 




C3B7 


A5 


IB 






LDA 


FLAG 




03B9 


49 


FF 






EORIM 


$FF 




03BB 


3C 


Al 






BMI 


BIGLP 




C3BD 


84 


19 






STY 


POINTL 




03BF 


A 9 


2A 






LDAIM $2A ASTERISK 


CHARACTER 


03C1 


20 


D2 


FF 




3SR 


PRINT 




03C4 


20 


E4 


FF 




JSR 


GET 




03C7 


FO 


90 






BEG 


LOOP 




C3C9 


4C 


47 


04 




JMP 


EXIT 




03CC 


64 


19 




OUT 


STY 


POINTL 




C3CE 


4C 


47 


04 




JMP 


EXIT 








Program Not 


es 







Change to $0658 for LOMON 

Clear decimal mode to insure arithmetic correct 

Compare with space character 

Input from screen: space, byte (2 characters), comma and byte. 

Store byte in begin and end page locations. 

Memory test program proper. Original author: Jim Butterfield. 

Print *, check for key press: 

no - repeat test 

yes - exit to monitor and print register buffer 
03CC - 03DG Abnormal exit to monitor. Program counter has address of fault. 
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MONITOR LOCATIONS 
Table 1 



Start of monitor 

Exit to monitor 

Break vector LOW 02 1B Normally 27 

Break vector HI 02 1C Normally 04 

Machine register storage buffer: 



040F 
0447 



Program counter LOW 


0019 


Program counter HI 


001A 


Status register 


001B 


Accumulator 


001C 


X-index register 


001D 


Y-index register 


001E 


Stack pointer 


001F 


Operating System calls: 




Output byte (from A) 


FFD2 


Input byte (left in A) 


FFCF 


Get byte 


FFE4 




COMMODORE. 


Output CR 


04F2 


Output space 


063A 


Output byte as 2 hex 


0613 


Input byte as 2 hex 


065E 


ASCII to hex (from A) 


0685 


Output? and wait for new 




command 


049B 


Input 2 bytes as 4 hex 


064F 


(LOW in loc. 11, HI in 12) 





The registers are initialized to the 
value in these locations after the G 
command. After the break instruction 
(and break vector set to 0427) these 
locations will contain the final 
values of the registers. 



(loo 260: keyboard, 1 screen) 
(A-0 no key depressed otherwide 
A- character) 

LOMON (PET Gazette) 
04F2 
063B 
0613 
0660 
0687 

049B 
0651 



KIM-PET EQUIVALENCES FOR THE MEMORY TEST PROGRAM 

Table 2 





KIM 


BEGIN 


0000 


END 


0001 


POINTL 


00FA 


P0INTH 


00FB 


FLAG 


0070 


FLIP 


0071 


MOD 


0072 


EXIT 


1C4F 


START 


0002 



PET 

0023 
0024 

0019 
001A 
001B 
001C 
001D 
0447 
033A 



NOTES 
first two unused zero 

page locations 
printed as PC location 

on exit 
printed as SR on exit 
printed as A on exit 
printed as X on exit 
exit to monitor-print registers 
start of second cassette 

buffer-well protected if 

device not used. 
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THE OSI FLASHER: 
BASIC-MACHINE CODE INTERFACING 

Robert E. Jones 
Handley High School 

West Point St. 
Roanoke, AL 36274 



o 



The following program is an example of how a machine language 
program for the 6502 microprocessor may be loaded from BASIC, 
executed, and then control may be returned to BASIC (and back 
again and again, as in this case.) I wrote the program to use in my 
job as a science teacher at Handley High School in Roanoke, 
Alabama, where we have two 6502 based microcomputers to use 
in teaching programming and solving problems of a repetitive 
nature in chemistry and physics. This program is set up to be run 
on our OHIO SCIENTIFIC CHALLENGER II. 

Our CHALLENCER was originally a MODEL 65V-4K with a total of 
12K of RAM. It has been updated with the new MODEL 500 CPU 
board with OSI MICROSOFT 8K BASIC in ROM. We also use a 
COMMODORE PET with 8K of RAM for programs which need 
graphics. 

The program may be run on any OSI challenger with a video board 
set up to start at screen memory location 53312 (base 10) or 
DOOO (hex). Our video board is the old 440 30ARD with only 
four pages of screen memory. The new MODEL 540 video 
board-based Challengers may use this program to occupy all eight 
pages of video memory if a change is made on line 170. The 
number to be changed is the second number of the DATA 
statement, the number which tells the program how many pages of 
screen memory to use. For 540-based systems the new version 
should be as follows: 

170 data 160,8,162,0,189,0,208 

The reason for the ease of change is that the starting locations for 
the screen memory on both the 440 and 540 boards is the same, 
DOOO (hex). The latter version with the provision for eight pages 
of video display will work on either type of board, but it seems 
tedious to me to poke numbers into screen memory locations not 
visible on my 440-based machine. 



10 
20 
30 
40 
50 
60 
70 
80 
90 



FOR Y = 1 TO 32 : PRINT : NEXT Y 
PRINT "INPUT THE DELAY CONSTANT." 
PRINT "USE A LOW NUMBER FOR A" 
PRINT "FAST FLASH RATE ( <.5)." 
INPUT T 

FOR P = 4096 TO 4130 
READ C : POKE P,C 
NEXT P 

POKE 11,0 : POKE 12,16 
100 FOR X = 53200 TO 54380 
110 POKE X,INT(255*RND(8)) 
120 NEXT X 

130 FOR D = 1 TO 100*T 
140 NEXT D 
150 X = USR (X) 
160 GOTO 130 

170 DATA 160,4,162,0,189,0,208 
180 DATA 105,1,157,0,208,232,208 
190 DATA 245,238,6,16,238,11,16 
200 DATA 136,208,236,169,208,141,6 
210 DATA 16,141,11,16,96,0,16 



Figure 1 







LINE 10 
LINES 20-50 

LINES 60-80 

LINE 90 

LINES 100-120 
LINES 130-140 



LINE 150 
LINE 160 
LINES 170-210 



CLEARS THE SCREEN 

GIVE INSTRUCTIONS AND INPUT THE DELAY FACTOR. 

THE LARGER THE DELAY FACTOR, THE SLOWER THE FLASH RATE. 

READ THE MACHINE CODE PROGRAM AND STORE IT IN MEMORY LOCATIONS 

4096 TO 4130 (DECIMAL) OR 1000 TO 1022 (HEX). 

POINTS TO THE START OF THE USR ROUTINE - WHERE TO JUMP TO WHEN 

EXITING FROM BASIC. 

CREATE A SCREEN FULL OF RANDOM CHARACTERS 

DELAY ROUTINE TO ALLOW THE SCREEN TO REMAIN AS IS FOR A TIME 

DEPENDING ON THE SIZE OF THE DELAY FACTOR BEFORE RETURNING TO 

THE MACHINE CODE PROGRAM. 

CAUSES AN EXIT FROM BASIC TO THE MACHINE CODE PROGRAM 

SENDS THE PROGRAM BACK TO THE DELAY ROUTINE WHILE IN BASIC. 

DATA STATEMENTS FOR THE MACHINE CODE PROGRAM 

Figure 2 
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OS I FLASHER 







BY ROBERT E. JONES 






FEBRUARY 1979 


10CO 






ORG $1000 


1000 AO 04 




START 


LDYIM $04 


1002 A 2 00 






LDXIM $00 


1004 BD 00 


DO 


LOOP 


LDAX $D000 


1007 69 01 






ADCIM $01 


1009 9D 00 


DO 




STAX $D000 


100C E8 






INX 


100D DO F5 






BNE LOOP 


100F EE 06 


10 




INC $1006 


1012 EE OB 


10 




INC $1006 


1015 88 






DEY 


1016 DO EC 






BNE LOOP 


1018 A9 DO 






LDAIM $D0 


101A 6D 06 


10 




STA $1006 


101D 8D OB 


10 




STA $100B 


1020 4C 00 


10 




JMP START 


WARNING: Set the BASIC LOMEM po. 


inter to some 



LOAD INDEX Y WITH 4 

LOAD INDEX X WITH 

LOAD A WITH CONTENTS OF DCOC + X 

ADD 1 

STORE AT DOOO + X 

BUMP POINTER/COUNTER 

BRANCH IF NOT ZERO 

INCREMENT ADDRESSES 

DECREMENT INDEX Y 
LOOP IF NOT ZERO 



CONTINUE RUNNING 



code before running BASIC, or you will destroy the code. 




6503 CONTROLLER 

Use your basic KIM board as a development 
system for the MIK controller board from 
Qix Systems. Develop and check programs 
on your KIM. Then, load a PROM with your 
program and insert into the PROM socket 
on the MIK. You then have a non-volatile 
programmed controller with the following 
features: 

•16 Programmable buffered I/O pins. 

• 512 or 1024 bytes of ROM and 128 bytes 
of RAM for scratchpad and stack. 

•On board clock, programmable timer interrupts, +5V voltage regulator, 
debounce circuitry for nonmaskable interrupt and reset lines. 

•Uses single unregulated supply with PROM' s or an additional -5V 
supply with 2704 or 2708 EPROM' s. 

• 4^" by 6%" board with 44 pin edge connector,, 

• $109 o 95 assembled and tested (no PROM' s included). 
•$69.95 for board with sockets for all IC's. 

Qix Systems P.O. Box 401626 Dallas, Texas 75240 (214)387-5589 
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6502 GRAPHICS ROUTINES 

Jim Green 

807 Bridge Street 

Bethlehem, PA 18018 



a o 



The 6502 Graphics routines were written specifically for use with 
the Polymorphics Video Terminal Interface. (VTI), board installed 
on a KIMSI, S-100 interface to a KIM. It is expected that these 
routines will work with other low resolution graphics boards of a 
similar configuration with little or no software modification but no 
other boards have been attempted to date. 

On the VTI, 16 lines of 64 ASCII characters each, or a grid of 48 by 
128 individually controllable points, can be accomodated. For 
each memory byte, the high bit, 7, determines how the byte is to 
be treated. If this bit is set the byte is displayed as an ASCII 
character. If the bit is clear the lowest six bits are displayed as 
points of a 3 by 2 point subset of the 48 by 128 point grid. Each 
such bit that is set will be displayed as black. The remainder will be 
white. 

The upper left-hand corner of the display screen is the display 
origin. This is also the base address of the video memory. The 
input coordinates to the routines are specified as hex values in the 
X and Y registers. The X register holds the column value and has a 
permitted range of to $7F. The Y register holds the row value 
from to $3F. 

Routines are provided: WHTPNT, to set; BLKPNT, to clear; and 
TSTPNT, to test the current value of a specified display bit. An 
additional routine, BLANKR, is used to blank the entire screen. 

The principal task of the graphics routines is to gain effective 
access to each specified bit in the screen grid without disturbing 



any of the remaining points. This task is divided into two parts, 
first to locate the byte that contains the target bit, then to isolate 
the target bit itself. These tasks are performed by subroutine 
POINT which is called by the other routines 

Within POINT, the ranges of X and Y are first tested. If either value 
is found to be out of range, control is returned to the calling 
program with the C flag set and with no changes to the video 
memory. If the ranges are ok, the C flag will be clear when the 
routines eventually return to the calling program. 

After the range tests, the row coordinate value is divided by three 
(by a process of successive subtraction), and the column 
coordinate value is divided by two. The integer quotents and 
remainders are saved separately in each case. The row and column 
quotents now point to the row and column that uniquely contain 
the target byte. Hence, when the row quotent is multiplied by 64 
and is then added to the column quotent an offset from the video 
memory base address is obtained. By adding the base address to 
this value the absolute memory address of the target byte is 
obtained. 

To isolate the target bit within a byte, the column and row 
remainders are combined to form an index value (0 to 5). This 
index is used to select one of six masks which may be logically 
combined with the byte to uniquely treat the target bit. 

On the system described, these routines require an average of 
about a third of a milli-second to complete a single bit update. 
This is more than ample for most purposes. 



Q 



6502 GRAPHICS ROUTINES 
VERSION 0.3B, 18 OCT 78 

COPYRIGHT BY 

J. S. GREEN, COMPUTER SYSTEMS 

807 BRIDGE STREET 

BETHLEHEM, PA 18018 

(215) 867-0924 

COMMERCIAL RIGHTS RESERVED 

EFFECTIVE COORDINATES IN HEX ON ENTRY: 
COLUMN VALUE IN X, (0 - $7F) 
ROW VALUE IN Y, (0 - $2F) 

CONSTANTS 

.DEF VIDBAS=$C000 ;VIDE0 MEMORY BASE ADDP 

.DEF UPLIM=$C4 ; UPPER LIMIT (HIGH BYTE) 
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VARIABLES 






.DEF 


ROW= 


= $E2 




.DEF 


COL= 


= $E3 




.DEF 


ROWREM= 


$E4 


.DEF 


COLREM= 


$E5 













DISPLAY CLEA 


0200 


20 


4C 


02 


WHTPNT: 


JSR POINT 


0203 


B0 


09 






BCS WHTPTl 


0205 


A0 


00 






LDY# 


0207 


BD 


90 


02 




LDAX PLTMSK 


20A 


31 


E6 






AND@Y GRADR 


020C 


91 


E6 






STA@Y GRADR 


020E 


60 






WHTPT1: 


RTS 









DISPLAY SET BIT 


020F 20 


4C 02 


BLKPNT: 


JSR 


POINT 


0212 B0 


0D 




BCS 


BLKPT1 


0214 A0 


00 




LDY# 





0216 BD 


90 02 




LDAX 


PLTMSK 


0219 49 


FF 




EOR# 


$FF 


021B 11 


E6 




ORA@Y 


GRADR ; 


021D 29 


3F 




AND# 


$3F 


021F 91 


E6 




STA@Y 


GRADR 


0221 60 




BLKPTl: 


RTS 





;GET ADDRES + MASK INDEX 
;BR IF PROBLEM 

GET MASK 

AND WITH VIDEO BYTE 

DISPLAY CLEAR BIT 



;GET ADDRES + MASK INDEX 
;BR IF PROBLEM 

GET MASK 

REVERSE IT 

OR WITH VIDEO BYTE 

CLEAR HIGH BITS 

DISPLAY SET BIT 



TEST DISPLAYED BIT 

RESULTS WITH Z FLAG SET IF BIT IS SET 



0222 


20 


4C 02 


TSTPNT: 


JSR 


POINT 


?GET ADDRES + MASK INDEX 


0225 


B0 


0B 




BCS 


TSTPT1 


■BR IF PROBLEM 


0227 


A0 


00 




LDY# 







0229 


BD 


90 02 




LDAX 


PLTMSK 


•GET MASK 


022C 


49 


FF 




EOR# 


$FF 


REVERSE IT 


022E 


29 


BF 




AND# 


$BF 


•CLEAR BIT 6 


0230 


31 


E6 




AND@Y 


GRADR 


Z SET IFF GRAPHIC-BIT SET 


0232 


60 




TSTPT1: 


RTS 














BLANK 


VIDEO FOR PLOT 


0233 


A9 


C0 


BLANKR: 


LDA# 


>VIDBftS 




0235 


85 


E7 




STA 


GRADR+1 




0237 


A0 


00 




LDY# 







0239 


84 


E6 




STY 


GRADR 




023B 


A9 


3F 




LDA# 


$3F 


• 0011 1111 


023D 


91 


E6 


BLANKl : 


STA@Y 


GRADR 




023F 


E6 


E6 




INC 


GRADR 




0241 


D0 


FA 




BNE 


BLANKl 




0243 


E6 


E7 




INC 


GRADR+1 


•HIGH ORDER ADDRES BYTE 


0245 


A6 


E7 




LDX 


GRADR+1 




0247 


E0 


C4 




CPX# 


UPLIM 


•TEST END OF SCREEN 


0249 


90 


F2 




BCC 


BLANKl 


■BR NOT DONE 


024E 


60 






RTS 
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MARC 



GET BYTE ADDRES & BIT MASK 



*•% 


024C 


E0 


80 


POINT: 


CPX# 


$80 


128 IS TOO HIGH 


024E 


B0 


3F 




BCS 


POINT3 


BR TOO HIGH 




0250 


C0 


30 




CPY# 


$30 


48 IS TOO HIGH FOR ROW 




0252 


B0 


3B 




BCS 


POINT3 


BR TOO HIGH 




0254 


8A 






TXA 




COLUMN 




0255 


48 






PHA 




SAVE IT 




0256 


98 






TYA 




ROW 




0257 


AA 






TAX 




DIVIDE ROW BY 3 




0258 


A0 


FF 




LDY# 


$FF 


INITIALIZE QUOTENT 




025A 


C8 




POINT1: 


I NY 




ACCUMULATE QUOTENT 




025B 


CA 






DEX 




SUBTRACT 3 




025C 


CA 






DEX 








025D 


CA 






DEX 








025E 


10 


FA 




BPL 


POINT1 


BR MORE 




0260 


E8 






INX 




RESTOR 3 




0261 


E8 






INX 








0262 


E8 






INX 








0263 


86 


E4 




STX 


ROWREM 


•ROW REMAINDER 




0265 


84 


E2 




STY 


ROW 


INTEGER QUOTENT 




0267 


A2 


00 




LDX# 









0269 


86 


E5 




STX 


COLREM 


•INITIALLY CLEAR 




026B 


68 






PLA 


. 


•RESTOR COLUMN 




026C 


4A 






LSRA 




•DIVIDE BY 2 




026D 


85 


E3 




STA 


COL 


INTEGER QUOTENT 




026F 


26 


E5 




ROL 


COLPEM 


REMAINDER FROM CARRY 




0271 


A5 


E2 




LDA 


ROW 







0273 


18 






CLC 






0274 


86 


E7 




STX 


GRADR+1 


•CLEAR ADDRES HI 




0276 


A2 


05 




LDX# 


5 


rPREP TO MPY BY 2**6 (=64) 




0278 


0A 




POINT2: 


ASLA 




;MPY BY 2 EACH LOOP 




0279 


26 


E7 




ROL 


GRADR+1 


•OVERFLO TO ADDRES HI 




027B 


CA 






DEX 








027C 


10 


FA 




BPL 


POINT2 


•BR TIL DONE 6 TI^ES 




027E 


65 


E3 




ADC 


COL 


•ADD THE PLACE IN THE ROW 




0280 


85 


E6 




STA 


GRADP 






0282 


A 9 


C0 




LDA# 


>VIDBAS 


VIDEO MEMORY BASE ADDR HI 




0284 


65 


E7 




ADC 


GRADR+1 






0286 


85 


E7 




STA 


GRADR+1 


•ADDRES POINTS TO BYTE 
• IN VIDEO MEMORY 












NOW CALC MASK INDEX FOP BIT WITHIN BYTE 




0288 


A5 


E4 




LDA 


ROWREM 


EITHER , 1 OR 2 




028A 


66 


E5 




ROR 


COLREM 


EITHER OR 1 INTO CARRY 




028C 


2A 






ROLA 




•COMBINE WITH CARRY 




028D 


AA 






TAX 








028E 


18 






CLC 




•CLEAR CARRY SAYS ANS OK 




028F 


60 




POINT3: 


RTS 








0290 


IF 




PLTMSK: 


.BYTE 


$1F 


•UP-LEFT POINT WITHIN BYTE 




0291 


3B 






• BYTE 


$3B 


. rjp-pT 




0292 


2F 






.BYTF 


$2F 


•MID-LF 




0293 


3D 






.BYTE 


$3D 


;MID-RT 


w 


0294 


37 






.BYTE 


$37 


•LO-LF 


0295 


3E 






.BYTE 


$3E 


■LO-RT 



,END 



NO ERRORS DETECTED 
PASS (1-2)? 
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How to expand your system four ways with one multi- 
purpose 

8K Power STATIC RAM 

8K EPROM logic (INTEL 2716/TI 2516) 

EPROM PROGRAMMER 

I/O - Versatile Interface Adapter : 2 timers 

+ 2 8-bits ports + serial/parallel shift register 

All ICs are socketted 

AIM 65 / SYM-1 / KIM-1 Compatable 

Assembled - Tested - Burned In $245 



^V 



How to add the most complete video, keyboard and light 
pen with VIDEO PLUS"" $245 

• Up to 4K Display RAM with Hardware Scrolling 

• 1 28 UPPER/lower case ASCII characters in 7 x 9 
matrix 

• 128 User Programmable characters in up to 8 x 16 
matrix for special characters, graphics, symbols, gray 
scale... 

• Programmable Screen Format: Up to 100 char/line, 
24 lines 

• ASCII Keyboard Interface and Light Pen Interface 

How to power your AIM/SYM/KIM system with 
POWER PLUS"" 






POWER PLUS 5"" +5V@5A, ± 12V @ 1A $75 
POWER PLUS SUPER 5"": + 5V @ 10A, ± 12V 

@ 1A $100 

POWER PLUS 5/24"": +24V @ 2.5A, +5V @ 5A, 
4 12V@1A $100 

8 5/8x6 3/4 x 5" metal case, ON/OFF switch, 
pilot light, grounded AC input, 1 10V @ 60Hz or 220V 
@50Hz 



How to interconnect and buffer your expanded system with 
MOTHER PLUS"" $80 

• Full Address Decoding and Signal Line Buffering 

• Room for your AIM/SYM/KIM and five additional 
boards 

• Provision for Power, Audio Cassette, and TTY 
connections 

We stock the AIM 65, SYM-1 and KIM-1, and can help 
you determine which system is best suited to your particular 
requirements. 

The COMPUTERIST 8 is a leading producer of products 
for the AIM/SYM/KIM (ASK ,m ) family of micro- 
computers. Send for your copy of our catalog which 
describes our current products in detail. 

PO Bali 'So. CMmsford. Mass. 01814 * 617/1M-J649 



Interactive Baseball 



SYSTEM: Standard Apple II 
MEMORY SIZE: 16K or More 
LANGUAGE: Interger Basic 
DESCRIPTION: An Interactive Baseball Game 
that uses Color Graphics extensively. Play a 7 or 
9 inning game alone or against a friend, (it will 
handle extra innings). Has sound effects with 
men running bases. Base stealing and pitching 
are under player control. Double plays and 
picking off of base runners under software 
control. Keeps track of team runs, innings, balls 
and strikes, outs, hits, has strike-outs and walks, 
and uses paddle inputs to interact with the 
program. 

PRICE: Cassette $12.50, Basic Listing $6.00. 

INCLUDES: User manual with complete doc- 
umentation. Plus a listing of key line numbers 
with an explanation of their purpose within the 
program. 



Available From: 



PAT CHIRICHELLA 
506 Fairview Ave. 
Ridgewood, N.Y. 11237 
(Dealer Inquires Invited) 



KIM BUS EXPANSION! 



AIM™, VIM™, (SYM)™, KIM™ OWNERS 
(and any other KIM™ bus users) buy the 
best 8K board available anywhere: 

GRAND OPENING SPECIAL! 

HDE 8K RAM-S169 ! 3 for S465 ! 

Industrial/commercial grade quality: 100 hour high temp burn- 
in: low power: KIM bus compatible pin for pin: super quality & 
reliability at below S-100 prices (COMMERICALLY rated S-100 
boards cost 25-75% more). When you expand your system, expand 
with the bus optimized tor 8 bit CPU's, the Commodore/Mos 
Technology 22(44 pin KIM bus, now supported by Synertek, MTU, 
Rockwell International, Problem Solver Systems, HOE, the Comput- 
ers), RNB, and others! 

KIM-1 computer J1 79.00. KIM-4 Motherboard $119: power sup- 
ply for KIM-1 alone— $45: enclosure for KIM-1 alone $29: HOE pro- 
totype board with regulator, heatsink, switch address & decoding 
logic included $49.50: book "The First Book of KIM" $9.95: book 
"Programming a Microcomputer: 6502" $8.95: SPECIAL PACKAGE 
DEAL: KIM-1, power supply, BOTH books listed above, ALL for 
■2091 

HDE FILE ORIENTED DISK SYSTEM (FODS) FOR KIM BUS 
COMPUTERS Make your KIM (or relative) the best 6502 develop- 
ment system available at any price. Expand with HDE's full size 
floppy system with FOOS/Editor/Assembler. 2 pass assembler, 
powerful editor compatible with ARESCO files KIM bus interface 
card: fast 8502 controller handles data transfer at maximum IBM 
single density speed for excellent reliability: power supply for 4 
drives: patches to Johnson Computer/Microsoft BASIC. 45 day 
delivery. Single drive— $1995 dual drive $2750 

Shipping extra unless order prepaid with cashier's check ALL 
items assembled, tested, guaranteed at least 90 days. 

PLAINSMAN MICRO SYSTEMS (div. 5C Corporation) 
P.O. Box 1712, Auburn, Al. 36830: (205)745-7735 
3803 Peppered Parkway, OpeKka 
[1-800-633-8724] Continental U A. except Al. 
Dealers for OSI, COMMODORE, COMPUC OLOR , 
^Hp" ALTOS 
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6502 BIBLIOGRAPHY 
PART IX 

"">, William R. Dial 

438 Roslyn Avenue 
Akron, OH 44320 

421. PURSER, ROBERT E. "Reference List of TRS-80, PET and APPLE II Computer Cassettes" 

Edition 4, November, 1978 (P.O. Box 466, El Dorado, CA 95623 
A very complete listing of software for the Apple II and PET is given. A few software reviews are given. 

422. MICRO No 8 (Dec, 1978-Jan., 1979) 

De Jong, Marvin L. "6502 Interfacing for Beginners: Buffering the Busses" 

The author continues his series of tutorial articles discussing the need for buffers, types of buffer chips and some ex- 
experiments and an application. 
Anon. "Microbes" 

An entire section of code from "Breaker: An Apple II Debugging Aid" MICRO NO 7 pg 5 was omitted and is given in this 

correction. Also a correction for Husband's "Design of a PET TTY Interface" Micro No. 6 pg 5. 
Suitor, Richard F. "Life for your Apple" 

A new version of LIFE has the generation calculations in assembly language to speed the program 
Reich, Dr. L.S. "Computer-Determined Kinetic Parameters in Thermal Analysis" 

A program for the quantitative estimation of kinetic parameters for the material being degraded such as activation energy 

and reaction order. Uses Apple II. 
Christensen, Alan K. "Continuous Motion Craphics or How to Fake a joystick with the PET" 

Basic supported routines are too slow to allow smooth movement. Action is enhanced by direct access of screen and 

keyboard. 
Powlette, Joseph L. and Jeffery, Donald C. "Storage Scope Revisited" 

With the hardware changes suggested in this article the performance of Dejong's program to transform an ordinary 

oscilloscope to a storage scope gives results approaching those of a commercial unit. 
Auricchio, Rick, "An Apple II Program Relocator" 

A program to move an Assembly language program to another part of memory. Changes all absolute references within the 

program. 
Cieryic, John, "SYM-1 Tape Directory" 

) Program to allow the SYM owner to examine his cassette tape to find what information is there. 

Anon. "The Bestof MICRO Volume 1" 

A book containing most of the articles that were published in MICRO Volume 1 . 
Butterfield, Jim "Inside PET Basic" 
Two new programs for PET. FIND will search a PET BASIC program for a particular data string that will list the lines 
containing the string. RESEQUENCE will renumber your program fixing up COTO's and other functions. 
Connolly, M.R. Jr. "An Apple II Pagel Map" 

This article shows a clever method of creating all sorts of nifty effects, title pages, etc., on your Apple. 
Dial, Wm R. "6502 Bibliography, Part VI I" 

Some 88 more references to the growing 6502 literature. 

423. PET Gazette (Oct/Nov., 1978) 
Anon. "Software Reviews — PET" 

Many reviews of PET software are to be found scattered through this issue of the Gazette. Also review of many new 

hardware items for PET. 
Staebel, Jon "PET Hints" 
PET Cazettel No 6 pg 6, (Oct/Nov., 1978) 

A discussion of the timer and built-in clock in the PET, examples of use. How to stimulate a repeat key on the PET. 
Barsanian A. "Tape Tips" 
PET Cazette 1 No 6 pg 8-9 (Oct/Nov., 1978) 

Some sensible tips on using PET tape cassettes, storage, copying. How to locate one program out of many on a tape. 
Cumberton, Dennis "Tape Tips" 
PET Cazette 1 No 6 pg 9 (Oct/Nov., 1978) 

Recommendations on the use of C-30 cassettes stripped down to C-10 equivalent. Comments on brands found 

satisfactory. 
Stone, Mike "Program Overlays" 
PET Cazette 1 No 6 pg 1 1-1 3 (OCT./Nov„ 1 978) 

Joining two programs. 
Anon. "New PET Booklet-PET Communicates with the Outside World" 
PET Cazette 1 No 6 pg 1 5-19 (Oct/Nov., 1978) 

Summary of the important information released including pinout for Parallel User Port, Second Cassette Interface, and 
x Memory Expansion Connector. IEEE Bus Limitations, I/O Commands, I/O operations, Recording techniques, Error 

J Detection, etc., etc. 

Lindsay, Len "Kilobaud Column for PET Users" 

Hints on programming with your PET, Use of the CET command. 
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424. Dr. Dobb's Journal 3 Issue 10 No. 30 (Nov./Dec, 1978) 

Bridge, Theodore E. "A Curve-Fitting Program Using a Focal Interpreter on the KIM-1" 

Focal s used with the KIM in a curve-fitting program. 
Swanks, Joel "Tiny GRAFIX for Tiny BASIC" 

Crafix is a system for graphic display on a small computer system, including Pittman's Tiny Basic, a SWTPC GT-6144 TV 

Graphics board, some machine language subroutines and a KIM-1 with4K of memory. 
Oliver, |ohn P. "Astronomy Application for PET FORTH" 

Using a newly available language PET-FORTH version 1.0, a PET was used to provide control functions for a telescope. 

425. Kilobaud No. 25 (Jan., 1979) 

Lindsay, len "PET Pourri" 

A new column on the PET has sections discussing Accessories, Publications, Software, Programming Hints, and PET 

Problems. A very helpful series of hints on Cassette recorder maintenance and saving data is included. 
Brisson, Dennis "New Products" 
6502 products include reviews on weight control/biorythm programs, a telephone cost-control center, the RS-16-HP 

"universal" interface for PET, a 6502 Assember for PET, a PET Word Processor, etc. 
Fuller. Steve "OSI User Group" 

The Newton Software Exchange, PO Box 518, Newton Center, MA 02158, is forming a user's group for OSI products, 

especially the Challenger series. 
Anon, "Letters" 

This month 6502 letters refer to the November article "Do It with a KIMSI", the September Article "Super Cheap 2708 

programmer, etc 
Lang, George E. "u-Pane!" 

Seethe reaction of every register of your microprocessor as you single step your KIM through a program. 
Ketchum, Don "Display Your PET" 

Watch the Monitor screen as all 316 PET characters appear on the Screen 
Carpenter, Charles R. "SHHH... People are Sleeping" 

The Telpar PS-40-3C-1 serves as a quiet and economical substitute for a noisy and expensive teletype. 
Yob, Gregory "PET Techniques Explained" 

Supplementing information from Commodore, this article gives information on cassette files. 

426. Calculators/Computers Magazine 2 Issue 7 (Nov./Dec, 1978) 

Costello, Scott H "Hilo-A Number-Guessing Program that Illustrates Several Math Concepts" 

Modifications for the program to run on several different computers, including PET are given. A number of variations 
are suggested. 

Albrecht, Bob and Albrecht, Karl "PET BASIC for Parents and Teachers" 
An explanation of many of the keys on the PET keyboard. 

427. Dr. Dobb's Journal 4 Issue 1 Number 31 (Jan., 1979) 

Seller, Bill "PET BASIC Renumber" 

A program to put your line numbers in a more ordinary list. 
Moser, Carl W "Add a Trap Vector for Unimplemented 6502 Opcodes" 

Ideas on how to provide hardware and a program to ferret out those hidden opcodes 
Aresco, P.O. Box 43, Audubon, PA 19407 "6K Assembler/Text Editor for Apple II" 

A 6K machine language for the Apple II. 
Terc Services, 575 Technology Sq., Cambridge MA 021 39 "KIM-1 Interface Set" 

Permits easy access to the I/O ports on the KIM. 

428. Byte 4 No. 1 (Jan., 1979) 
Helmers, Carl "Pascal Progress" 

The University of Calif at San Diego plans to make the UCSD Pascal system available on Apple II computer early in 1979. 
PRS The Program of the MonthCorporation, 257 Central Park West New York, N.Y. 10024 

A2FP is a Plotting Program for Apple II which plots 2-dimensional functions in high resolution graphics. 
Leff, Alan A. and Boos, D.L. "A Timely Modification toKIMER" 

Modification of the Baker program "Kimer: A KIM-1 Timer" Byte, July 1978, pg12 to allow it to run as 12 hour clock. 
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SYM-1, 6502-BASED MICROCOMPUTER 

FULLY-ASSEMBLED AND COMPLETELY INTEGRATED SYSTEM that's 
ready-fo-use 

ALL LSI IC'S ARE IN SOCKETS 

28 DOUBLE-FUNCTION KEYPAD INCLUDING UP TO 24 "SPECIAL" 
FUNCTIONS 

EASY-TO-VIEW 6-DIGIT HEX LED DISPLAY 
KIM-1* HARDWARE COMPATIBILITY 

The powerful 6502 8-Bit MICROPROCESSOR whose advanced 
architectural features have made it one of the largest selling "micros" 
on the market today. 

THREE ON-BOARD PROGRAMMABLE INTERVAL TIMERS available to 
the user, expondable to five on-board. 

4K BYTE_ROM RESIDENT MONITOR and Operating Programs. 
Single 5 Volt power supply is all that is required. 
IK BYTES OF 2114 STATIC RAM onboard with sockets provided for 
immediate expansion to 4K bytes onboord, with total memory expan- 
sion to 65, 536 bytes. 

USER PROM/ROM: The system is equipped with 3 PROM/ROM ex- 
pansion sockets for 2316/2332 ROMs or 2716 EPROMs 
ENHANCED SOFTWARE with simplified user interface 
STANDARD INTERFACES INCLUDE: 
— Audio Cassette Recorder Interface with Remote Control (Two 

modes: 135 Baud KIM-1* compatible, Hi-Speed 1500 Baud) 
— Full duplex 20mA Teletype Interface 
— System Expansion Bus Interface 
— TV Controller Board Interface 
—CRT Compatible Interface (RS-232) 

APPLICATION PORT: 15 Bi-directional TTL Lines for user applications 
with expansion copability for added lines 

EXPANSION PORT FOR ADD-ON MODULES (51 I/O Lines included in 
the basic system) 

SEPARATE POWER SUPPLY connector far easy disconnect of the d-c 
power 
AUDIBLE RESPONSE KEYPAD 
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Synertek has enhanced KIM-1 * software as well as the hardware. The 
software has simplified the user interface. The basic SYM-1 system is 
progrommed in machine language. Monitor status is easily accessible, 
and the monitor gives the keypad user the same full functional capabili- 
ty of the TTY user. The SYM-1 has everything the KIM-1* has to offer, 
plus so much more that we cannot begin to tell you here. Sa, if you want 
to knaw more, the SYM-1 User Manual is available, separately. 
SYM-1 Complete w/ manuals $269.00 

SYM-1 User Manual Only 7.00 

SYM-1 Expansion Kit 75.00 

Expansion includes 3K of 21 14 RAM chips and 1-6522 I/O chip. 
SYM-1 Manuals: The well organized documentation package is com- 
plete and easy-to-understand. 

SYM-1 CAN GROW AS YOU GROW. Its the system to BUILD-ON. Ex- 
pansion features that are soon to be offered: 

*BAS-1 8K Basic ROM (Microsoft) $159.00 

"KTM-2 TV Interface Board 349.00 



*We do honor Synertek discount coupons 

QUALITY EXPANSION BOARDS DESIGNED SPECIFICALLY FOR KIM-1, SYM-1 & AIM 65 

These boards are set up for use with a regulated power supply such as the one below, but, provisions have been made so that you can add 

onboard regulators for use with an unregulated power supply. But, because af unreliability, we do not recommend the use of onboard 

regulators. All I.C.'s are socketed for ease of maintenance. All boards carry full 90-day warranty. 

All products that we manufacture are designed to meet or exceed industrial standards. All components are first qualtiy and meet full 

manufacturer's specifications. All this and an extended burn-in is done to reduce the normal percentage of field failures by up to 75%. To you, 

this means the chance of inconvenience and lost time due to a failure is very rare; but, if it should happen, we guarantee a turn-around time of 

less than forty-eight hours for repair. 

Our money back guarantee: If, for any reason you wish to return any board that you have purchased directly from us within ten (10) days after 

receipt, complete, in original condition, and in original shipping carton; we will give you a complete credit or refund less a $10.00 restocking 

charge per board. 



VAK-1 8-SLOT MOTHERBOARD 

This motherboard uses the KIM-4" bus structure. It provides eight (8) 
expansion board sockets with rigid card cage. Separate jacks for audio 
cassette, TTY and power supply are provided. Fully buffered bus. 
VAK-1 Motherboard $129.00 

VAK-2/4 16K STATIC RAM BOARD 

This board using 2114 RAMs is configured in two (2) separately 
addressable 8K blocks with individual write-protect switches. 

VAK-2 16K RAM Board with only $239.00 

8K of RAM ( Vi populated) 
VAK-3 Complete set of chips to $175.00 

expand above board to 16K 
VAK-4 Fully populated 16K RAM $379.00 

VAK-5 2708 EPROM PROGRAMMER 

This board requires a +5 VDC and +12 VDC, but has a DC to DC 



multiplyer so there is no need for an additional power supply. All 

software is resident in on-board ROM, and has a zera-insertion socket. 

VAK-5 2708 EPROM Programmer $269.00 

VAK-6 EPROM BOARD 

This board will hold 8K of 2708 or 2758, 
EPROMs. EPROMs not included. 
VAK-6 EPROM Board 



or 16K of 2716 or 2516 



$129.00 



VAK-7 COMPLETE FLOPPY-DISK SYSTEM (May '79) 

VAK-8 PROTYPING BOARD 

This board allows you to create your own interfaces to plug into the 
motherboard. Etched circuitry is provided for regulators, address and 
data bus drivers; with a large area for either wire-wrapped or soldered 
IC circuitry. 

VAK-8 Protyping Board $49.00 



POWER SUPPLIES 

ALL POWER SUPPLIES are totally enclosed with grounded enclosures for safety, AC power cord, ond carry o full 2-year warranty. 
FULL SYSTEM POWER SUPPLY 
This power supply will handle a microcomputer and up to 65K of our KIM-1 * Custom P.S. provides 5 VDC @ 1.2 Amps 

VAK-4 RAM. ADDITIONAL FEATURES ARE: Over voltage Protection on 5 an d +12 VDC @ .1 Amps 

volts, fused, AC on/off switch. Equivalent to units selling for $225.00 or KCP-1 Power Supply $41.50 



; 



provides +5 VDC @ 10 Amps & ±12 VDC @ 1 Amp 



VAK-EPS Power Supply 

ENTERPRISES 




SYM-1 Custom P.S. provides 5 VDC @ 1.4 Amps 
$125.00 VCP-1 Power Supply 

'KIM is a product of MOS Technology 



$41.50 



INCORPORATED 



2967 W Fairmount Avenue 
Phoenix AZ 85017 
(602)265-7564 




QUALITY 




GUNFIGHT 



$9.95 




PHAZOR ZAP 



SI 5.95 




FLYSWATTER 



S9.95 
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DEPTH CHARGE $15.95 




Apple FORTH 
Pet FORTH 



FORTH is a unique threaded language that 
is ideally suited for systems and applications 
programming on a micro-processor system. 
The user may have the interactive FORTH 
Compiler/Interpreter system running 
stand-alone in 4K to 6K bytes of RAM. 
The system also offers a built-in incremental 
assembler and text editor. Since the FORTH 
language is vocabulary based, the user may 
tailor the system to resemble the needs and 
structure of any specific application. 
Programming in FORTH consists of defining 
new words, which draw upon the existing 
vocabulary, and which in turn may be used 
to define even more complex applications. 
Reverse Polish Notation and LIFO stacks 
are used in the FORTH system to process 
arithmetic expressions. Programs written 
in FORTH are compact and very fast. 

APPLE II COMPUTER $34.95 

PET 2001 COMPUTER $34.95 



Apple PIE 



PIE (PROGRAMMED IMPROVED EDITOR} 
is an enhanced curser-based editor that works 
unlike most currently available text editors. 
All PIE commands consist of control 
characters, which are assigned to user 
defined function locations. The keys of the 
system input keyboard, are assigned specific 
PIE Editor function commands by the user. 
Commands in the PIE Editor may optionally 
be preceded by an Escape character, followed 
by a numeric or string argument. 

APPLE II COMPUTER $19.95 



All orders include 3% postage arid handling. 
Apple II is a registered trademark of Apple 
Computer, Inc. Pet is a registered trademark 
of Commodore International. 
California residents add 6% sales tax. 
VISA Si MASTERCHARGE Accepted. 





BATTLESHIP 







SLOT MACHINE 



$6.95 



PROGRAMMA 
INTERNATIONAL, Inc. 

3400 Wi I shire Blvd. 
Los Angeles, CA 90010 

(213) 384-0579 
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PIRATES 



$9.95 



APPLE II LIGHT PEN 



$34.95 



Dealer Inquiries Invited 
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